home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / tool / tinpei / tinpei.bas next >
BASIC Source File  |  1995-08-03  |  73KB  |  2,255 lines
  1. 10 '***********************************************************
  2. 20 '*                                                         *
  3. 30 '*     一週間で覚えるタッチタイピング                      *
  4. 40 '*                                                         *
  5. 50 '*                                     PEB02663  ちんぺい  * 
  6. 60 '***********************************************************
  7. 70 '
  8. 80 SCREEN 0:CLS
  9. 90 PALETTE 0,[0,0,0]             '黒
  10. 100 PALETTE 1,[60,110,30]         '肌の影の茶
  11. 110 PALETTE 2,[100,0,0]           '赤
  12. 120 PALETTE 3,[150,150,150]       '灰(暗)
  13. 130 PALETTE 4,[100,180,80]        '押したときの肌色
  14. 140 PALETTE 5,[160,240,140]       '肌色
  15. 150 PALETTE 6,[200,200,200]       '灰(明)
  16. 160 PALETTE 7,[255,255,255]       '白
  17. 170 PALETTE 8,[140,220,120]       'ｶﾞｲﾄﾞ用肌色 
  18. 180 '
  19. 190 COLOR 2,%6,0,0 :CLS
  20. 200 DIM 五$(47)
  21. 210 DIM しゃ$(36)
  22. 220 DIM 欄$(108)
  23. 230 DIM TYPE%(3000)
  24. 240 LOAD@"TYPE.SND",TYPE%
  25. 250 '
  26. 260 *メニュー
  27. 270 CLS
  28. 280 LINE (25,5)-(615,460),PSET,%3,BF
  29. 290 CONNECT (25,460)-(25,5)-(615,5),%7,PSET,N
  30. 300 CONNECT (26,459)-(26,6)-(614,6),%7,PSET,N
  31. 310 CONNECT (27,458)-(27,7)-(613,7),%7,PSET,N
  32. 320 CONNECT (25,460)-(615,460)-(615,5),%0,PSET,N
  33. 330 CONNECT (26,459)-(614,459)-(614,6),%0,PSET,N
  34. 340 CONNECT (27,458)-(613,458)-(613,7),%0,PSET,N
  35. 350 LINE (560,463)-(640,480),PSET,%0,BF
  36. 360 SYMBOL(70,15),"ちんぺいの",1,1,%0,,,1
  37. 370 SYMBOL(70,35),"一週間で覚えるタッチタイピング",2,1,%0,,,1
  38. 380 SYMBOL(50,60),"1日目   LESSON 0 ～ 1",1,1,%0,,,1
  39. 390 SYMBOL(50,100),"2日目   LESSON 1 ～ 2",1,1,%0,,,1
  40. 400 SYMBOL(50,140),"3日目   LESSON 1 ～ 7",1,1,%0,,,1
  41. 410 SYMBOL(50,180),"4日目   LESSON 1 ～ 11  ",1,1,%0,,,1
  42. 420 SYMBOL(50,220),"5日目   LESSON 1 ～ 12 ",1,1,%0,,,1
  43. 430 SYMBOL(50,260),"6日目   LESSON 1 ～ 17 ",1,1,%0,,,1
  44. 440 SYMBOL(50,300),"7日目   LESSON 1 ～ 19",1,1,%0,,,1
  45. 450 SYMBOL(50,340),"練習する LESSONを選んで",1,1,%0,,,1
  46. 460 SYMBOL(50,360),"番号を入力し実行ｷｰを押す",1,1,%0,,,1
  47. 470 SYMBOL(330,60),"LESSON  0   操作説明",1,1,%0,,,1
  48. 480 SYMBOL(330,79),"LESSON  1   あいうえお",1,1,%0,,,1
  49. 490 SYMBOL(330,98),"LESSON  2   あ行",1,1,%0,,,1
  50. 500 SYMBOL(330,117),"LESSON  3   か行",1,1,%0,,,1
  51. 510 SYMBOL(330,136),"LESSON  4   さ行",1,1,%0,,,1
  52. 520 SYMBOL(330,155),"LESSON  5   た行",1,1,%0,,,1
  53. 530 SYMBOL(330,174),"LESSON  6   な行",1,1,%0,,,1
  54. 540 SYMBOL(330,193),"LESSON  7   は行",1,1,%0,,,1
  55. 550 SYMBOL(330,212),"LESSON  8   ま行",1,1,%0,,,1
  56. 560 SYMBOL(330,231),"LESSON  9   や行",1,1,%0,,,1
  57. 570 SYMBOL(330,250),"LESSON 10   ら行",1,1,%0,,,1
  58. 580 SYMBOL(330,269),"LESSON 11   わをんー",1,1,%0,,,1
  59. 590 SYMBOL(330,288),"LESSON 12   50音ﾗﾝﾀﾞﾑ",1,1,%0,,,1
  60. 600 SYMBOL(330,307),"LESSON 13   が行",1,1,%0,,,1
  61. 610 SYMBOL(330,326),"LESSON 14   ざ行",1,1,%0,,,1
  62. 620 SYMBOL(330,345),"LESSON 15   だ行",1,1,%0,,,1
  63. 630 SYMBOL(330,364),"LESSON 16   ば行",1,1,%0,,,1
  64. 640 SYMBOL(330,383),"LESSON 17   ぱ行",1,1,%0,,,1
  65. 650 SYMBOL(330,402),"LESSON 18   ｢しゃ｣とか｢きゃ｣",1,1,%0,,,1
  66. 660 SYMBOL(330,421),"LESSON 19   ランダム",1,1,%0,,,1
  67. 670 SYMBOL(330,440),"       20   やめる",1,1,%0,,,1
  68. 680 SYMBOL(330,463),"*[英 大]ﾓｰﾄﾞにして下さい →",1,1,%0,,,0
  69. 690 '
  70. 700 CONSOLE 0,0,2
  71. 710 LOCATE 20,21
  72. 720 INPUT MANU
  73. 730 '
  74. 740 IF MANU=0 THEN GOSUB  *はじめに
  75. 750 IF MANU=1 THEN GOSUB *あいうえお1
  76. 760 IF MANU=2 THEN GOSUB *あいうえお2
  77. 770 IF MANU=3 THEN GOSUB *かきくけこ
  78. 780 IF MANU=4 THEN GOSUB *さしすせそ
  79. 790 IF MANU=5 THEN GOSUB *たちつてと
  80. 800 IF MANU=6 THEN GOSUB *なにぬねの
  81. 810 IF MANU=7 THEN GOSUB *はひふへほ
  82. 820 IF MANU=8 THEN GOSUB *まみむめも
  83. 830 IF MANU=9 THEN GOSUB *やゆよ
  84. 840 IF MANU=10 THEN GOSUB *らりるれろ
  85. 850 IF MANU=11 THEN GOSUB *わをんー
  86. 860 IF MANU=12 THEN GOSUB *五十音ﾗﾝﾀﾞﾑ
  87. 870 IF MANU=13 THEN GOSUB *がぎぐげご
  88. 880 IF MANU=14 THEN GOSUB *ざじずぜぞ
  89. 890 IF MANU=15 THEN GOSUB *だぢづでど
  90. 900 IF MANU=16 THEN GOSUB *ばびぶべぼ
  91. 910 IF MANU=17 THEN GOSUB *ぱぴぷぺぽ
  92. 920 IF MANU=18 THEN GOSUB *しゃとかきゃ
  93. 930 IF MANU=19 THEN GOSUB *ランダム 
  94. 940 IF MANU=20 THEN *END
  95. 950 IF MANU>20 THEN GOTO 700 
  96. 960 '
  97. 970 *あいうえお1
  98. 980 GOSUB *SYOKI
  99. 990 GOSUB *あ行1
  100. 1000 GOTO 990 
  101. 1010 '
  102. 1020 *あいうえお2
  103. 1030 GOSUB *SYOKI
  104. 1040 GOSUB *あ行2
  105. 1050 GOTO 1040
  106. 1060 '
  107. 1070 *かきくけこ
  108. 1080 GOSUB *SYOKI
  109. 1090 GOSUB *か行
  110. 1100 GOTO 1090
  111. 1110 '
  112. 1120 *さしすせそ
  113. 1130 GOSUB *SYOKI
  114. 1140 GOSUB *さ行
  115. 1150 GOTO 1140
  116. 1160 '
  117. 1170 *たちつてと
  118. 1180 GOSUB *SYOKI
  119. 1190 GOSUB *た行
  120. 1200 GOTO 1190
  121. 1210 '
  122. 1220 *なにぬねの
  123. 1230 GOSUB *SYOKI
  124. 1240 GOSUB *な行
  125. 1250 GOTO 1240
  126. 1260 '
  127. 1270 *はひふへほ
  128. 1280 GOSUB *SYOKI
  129. 1290 GOSUB *は行
  130. 1300 GOTO 1290
  131. 1310 '
  132. 1320 *まみむめも
  133. 1330 GOSUB *SYOKI
  134. 1340 GOSUB *ま行
  135. 1350 GOTO 1340
  136. 1360 '
  137. 1370 *やゆよ
  138. 1380 GOSUB *SYOKI
  139. 1390 GOSUB *や行
  140. 1400 GOTO 1390
  141. 1410 '
  142. 1420 *らりるれろ
  143. 1430 GOSUB *SYOKI 
  144. 1440 GOSUB *ら行
  145. 1450 GOTO 1440
  146. 1460 ' 
  147. 1470 *わをんー
  148. 1480 GOSUB *SYOKI
  149. 1490 GOSUB *わ行
  150. 1500 GOTO 1490
  151. 1510 '
  152. 1520 *五十音ﾗﾝﾀﾞﾑ
  153. 1530 GOSUB *SYOKI
  154. 1540 GOSUB *五十音
  155. 1550 GOTO 1540 
  156. 1560 '
  157. 1570 *がぎぐげご 
  158. 1580 GOSUB *SYOKI
  159. 1590 GOSUB *が行
  160. 1600 GOTO 1590
  161. 1610 '
  162. 1620 *ざじずぜぞ
  163. 1630 GOSUB *SYOKI
  164. 1640 GOSUB *ざ行
  165. 1650 GOTO 1640
  166. 1660 '
  167. 1670 *だぢづでど
  168. 1680 GOSUB *SYOKI
  169. 1690 GOSUB *だ行
  170. 1700 GOTO 1690
  171. 1710 '
  172. 1720 *ばびぶべぼ
  173. 1730 GOSUB *SYOKI
  174. 1740 GOSUB *ば行
  175. 1750 GOTO 1740
  176. 1760 '
  177. 1770 *ぱぴぷぺぽ
  178. 1780 GOSUB *SYOKI
  179. 1790 GOSUB *ぱ行
  180. 1800 GOTO 1790
  181. 1810 '
  182. 1820 *しゃとかきゃ
  183. 1830 GOSUB *SYOKI
  184. 1840 GOSUB *しゃ行
  185. 1850 GOTO 1840
  186. 1860 '
  187. 1870 *ランダム
  188. 1880 GOSUB *SYOKI
  189. 1890 GOSUB *ランダム行
  190. 1900 GOTO 1890
  191. 1910 '
  192. 1920 '
  193. 1930 *SYOKI
  194. 1940 CLS
  195. 1950 LINE (25,5)-(615,460),PSET,%3,BF
  196. 1960 CONNECT (25,460)-(25,5)-(615,5),%7,PSET,N
  197. 1970 CONNECT (26,459)-(26,6)-(614,6),%7,PSET,N
  198. 1980 CONNECT (27,458)-(27,7)-(613,7),%7,PSET,N
  199. 1990 CONNECT (25,460)-(615,460)-(615,5),%0,PSET,N
  200. 2000 CONNECT (26,459)-(614,459)-(614,6),%0,PSET,N
  201. 2010 CONNECT (27,458)-(613,458)-(613,7),%0,PSET,N
  202. 2020 ' 
  203. 2030 LINE (70,270)-(110,420),PSET,%5,BF:SYMBOL(75,425),"小",2,1,0,,,1
  204. 2040 CONNECT (70,420)-(70,270)-(110,270),%7,PSET,N
  205. 2050 CONNECT (71,419)-(71,271)-(109,271),%7,PSET,N
  206. 2060 CONNECT (70,420)-(110,420)-(110,270),%1,PSET,N
  207. 2070 CONNECT (71,419)-(109,419)-(109,271),%1,PSET,N
  208. 2080 '
  209. 2090 LINE (120,270)-(160,420),PSET,%5,BF:SYMBOL(125,425),"薬",2,1,0,,,1
  210. 2100 CONNECT (120,420)-(120,270)-(160,270),%7,PSET,N
  211. 2110 CONNECT (121,419)-(121,271)-(159,271),%7,PSET,N
  212. 2120 CONNECT (120,420)-(160,420)-(160,270),%1,PSET,N
  213. 2130 CONNECT (121,419)-(159,419)-(159,271),%1,PSET,N
  214. 2140 '
  215. 2150 LINE (170,270)-(210,420),PSET,%5,BF:SYMBOL(175,425),"中",2,1,0,,,1
  216. 2160 CONNECT (170,420)-(170,270)-(210,270),%7,PSET,N
  217. 2170 CONNECT (171,419)-(171,271)-(209,271),%7,PSET,N
  218. 2180 CONNECT (170,420)-(210,420)-(210,270),%1,PSET,N
  219. 2190 CONNECT (171,419)-(209,419)-(209,271),%1,PSET,N
  220. 2200 '
  221. 2210 LINE (220,270)-(260,420),PSET,%5,BF:SYMBOL(225,425),"人",2,1,0,,,1
  222. 2220 CONNECT (220,420)-(220,270)-(260,270),%7,PSET,N
  223. 2230 CONNECT (221,419)-(221,271)-(259,271),%7,PSET,N
  224. 2240 CONNECT (220,420)-(260,420)-(260,270),%1,PSET,N
  225. 2250 CONNECT (221,419)-(259,419)-(259,271),%1,PSET,N
  226. 2260 '
  227. 2270 LINE (370,270)-(410,420),PSET,%5,BF:SYMBOL(375,425),"人",2,1,0,,,1
  228. 2280 CONNECT (370,420)-(370,270)-(410,270),%7,PSET,N
  229. 2290 CONNECT (371,419)-(371,271)-(409,271),%7,PSET,N
  230. 2300 CONNECT (370,420)-(410,420)-(410,270),%1,PSET,N
  231. 2310 CONNECT (371,419)-(409,419)-(409,271),%1,PSET,N
  232. 2320 '
  233. 2330 LINE (420,270)-(460,420),PSET,%5,BF:SYMBOL(425,425),"中",2,1,0,,,1
  234. 2340 CONNECT (420,420)-(420,270)-(460,270),%7,PSET,N
  235. 2350 CONNECT (421,419)-(421,271)-(459,271),%7,PSET,N
  236. 2360 CONNECT (420,420)-(460,420)-(460,270),%1,PSET,N
  237. 2370 CONNECT (421,419)-(459,419)-(459,271),%1,PSET,N
  238. 2380 '
  239. 2390 LINE (470,270)-(510,420),PSET,%5,BF:SYMBOL(475,425),"薬",2,1,0,,,1
  240. 2400 CONNECT (470,420)-(470,270)-(510,270),%7,PSET,N
  241. 2410 CONNECT (471,419)-(471,271)-(509,271),%7,PSET,N
  242. 2420 CONNECT (470,420)-(510,420)-(510,270),%1,PSET,N
  243. 2430 CONNECT (471,419)-(509,419)-(509,271),%1,PSET,N
  244. 2440 '
  245. 2450 LINE (520,270)-(560,420),PSET,%5,BF:SYMBOL(525,425),"小",2,1,0,,,1
  246. 2460 CONNECT (520,420)-(520,270)-(560,270),%7,PSET,N
  247. 2470 CONNECT (521,419)-(521,271)-(559,271),%7,PSET,N
  248. 2480 CONNECT (520,420)-(560,420)-(560,270),%1,PSET,N
  249. 2490 CONNECT (521,419)-(559,419)-(559,271),%1,PSET,N
  250. 2500 '
  251. 2510 LINE (560,463)-(640,480),PSET,%0,BF
  252. 2520 SYMBOL(410,10)," [ESC]を押すとﾒﾆｭｰへ戻る",1,1,0,,,1
  253. 2530 SYMBOL(330,463),"*[英 大]ﾓｰﾄﾞにして下さい →",1,1,%0,,,0
  254. 2540 RETURN
  255. 2550 ' 
  256. 2560 *あ行1
  257. 2570 GOSUB *あ
  258. 2580 GOSUB *い
  259. 2590 GOSUB *う
  260. 2600 GOSUB *え 
  261. 2610 GOSUB *お
  262. 2620 RETURN
  263. 2630 '
  264. 2640 *あ行2
  265. 2650 あ$(0)="あ" :あ$(1)="い" :あ$(2)="う" :あ$(3)="え" :あ$(4)="お"
  266. 2660 RANDOMIZE TIME 
  267. 2670 IF あ$(RND*5)="あ" THEN GOSUB *あ 
  268. 2680 IF あ$(RND*5)="い" THEN GOSUB *い
  269. 2690 IF あ$(RND*5)="う" THEN GOSUB *う
  270. 2700 IF あ$(RND*5)="え" THEN GOSUB *え
  271. 2710 IF あ$(RND*5)="お" THEN GOSUB *お
  272. 2720 RETURN
  273. 2730 '
  274. 2740 *か行
  275. 2750 か$(0)="か" :か$(1)="き" :か$(2)="く" :か$(3)="け" :か$(4)="こ"
  276. 2760 RANDOMIZE TIME 
  277. 2770 IF か$(RND*5)="か" THEN GOSUB *か 
  278. 2780 IF か$(RND*5)="き" THEN GOSUB *き 
  279. 2790 IF か$(RND*5)="く" THEN GOSUB *く 
  280. 2800 IF か$(RND*5)="け" THEN GOSUB *け 
  281. 2810 IF か$(RND*5)="こ" THEN GOSUB *こ 
  282. 2820 RETURN
  283. 2830 '
  284. 2840 *さ行
  285. 2850 さ$(0)="さ" :さ$(1)="し" :さ$(2)="す" :さ$(3)="せ" :さ$(4)="そ"
  286. 2860 RANDOMIZE TIME 
  287. 2870 IF さ$(RND*5)="さ" THEN GOSUB *さ 
  288. 2880 IF さ$(RND*5)="し" THEN GOSUB *し
  289. 2890 IF さ$(RND*5)="す" THEN GOSUB *す
  290. 2900 IF さ$(RND*5)="せ" THEN GOSUB *せ
  291. 2910 IF さ$(RND*5)="そ" THEN GOSUB *そ
  292. 2920 RETURN
  293. 2930 '
  294. 2940 *た行
  295. 2950 た$(0)="た" :た$(1)="ち" :た$(2)="つ" :た$(3)="て" :た$(4)="と"
  296. 2960 RANDOMIZE TIME 
  297. 2970 IF た$(RND*5)="た" THEN GOSUB *た 
  298. 2980 IF た$(RND*5)="ち" THEN GOSUB *ち 
  299. 2990 IF た$(RND*5)="つ" THEN GOSUB *つ 
  300. 3000 IF た$(RND*5)="て" THEN GOSUB *て 
  301. 3010 IF た$(RND*5)="と" THEN GOSUB *と 
  302. 3020 RETURN
  303. 3030 '
  304. 3040 *な行
  305. 3050 な$(0)="な" :な$(1)="に" :な$(2)="ぬ" :な$(3)="ね" :な$(4)="の"
  306. 3060 RANDOMIZE TIME 
  307. 3070 IF な$(RND*5)="な" THEN GOSUB *な
  308. 3080 IF な$(RND*5)="に" THEN GOSUB *に
  309. 3090 IF な$(RND*5)="ぬ" THEN GOSUB *ぬ
  310. 3100 IF な$(RND*5)="ね" THEN GOSUB *ね
  311. 3110 IF な$(RND*5)="の" THEN GOSUB *の
  312. 3120 RETURN
  313. 3130 '
  314. 3140 *は行
  315. 3150 は$(0)="は" :は$(1)="ひ" :は$(2)="ふ" :は$(3)="へ" :は$(4)="ほ"
  316. 3160 RANDOMIZE TIME 
  317. 3170 IF は$(RND*5)="は" THEN GOSUB *は
  318. 3180 IF は$(RND*5)="ひ" THEN GOSUB *ひ
  319. 3190 IF は$(RND*5)="ふ" THEN GOSUB *ふ
  320. 3200 IF は$(RND*5)="へ" THEN GOSUB *へ
  321. 3210 IF は$(RND*5)="ほ" THEN GOSUB *ほ
  322. 3220 RETURN
  323. 3230 '
  324. 3240 *ま行
  325. 3250 ま$(0)="ま" :ま$(1)="み" :ま$(2)="む" :ま$(3)="め" :ま$(4)="も"
  326. 3260 RANDOMIZE TIME 
  327. 3270 IF ま$(RND*5)="ま" THEN GOSUB *ま
  328. 3280 IF ま$(RND*5)="み" THEN GOSUB *み
  329. 3290 IF ま$(RND*5)="む" THEN GOSUB *む
  330. 3300 IF ま$(RND*5)="め" THEN GOSUB *め
  331. 3310 IF ま$(RND*5)="も" THEN GOSUB *も
  332. 3320 RETURN
  333. 3330 '
  334. 3340 *や行
  335. 3350 や$(0)="や" :や$(1)="ゆ" :や$(2)="よ"
  336. 3360 RANDOMIZE TIME 
  337. 3370 IF や$(RND*3)="や" THEN GOSUB *や
  338. 3380 IF や$(RND*3)="ゆ" THEN GOSUB *ゆ
  339. 3390 IF や$(RND*3)="よ" THEN GOSUB *よ
  340. 3400 RETURN
  341. 3410 '
  342. 3420 *ら行
  343. 3430 ら$(0)="ら" :ら$(1)="り" :ら$(2)="る" :ら$(3)="れ" :ら$(4)="ろ"
  344. 3440 RANDOMIZE TIME 
  345. 3450 IF ら$(RND*5)="ら" THEN GOSUB *ら
  346. 3460 IF ら$(RND*5)="り" THEN GOSUB *り
  347. 3470 IF ら$(RND*5)="る" THEN GOSUB *る
  348. 3480 IF ら$(RND*5)="れ" THEN GOSUB *れ
  349. 3490 IF ら$(RND*5)="ろ" THEN GOSUB *ろ
  350. 3500 RETURN
  351. 3510 '
  352. 3520 *わ行
  353. 3530 わ$(0)="わ" :わ$(1)="を" :わ$(2)="ん" :わ$(3)="ー"
  354. 3540 RANDOMIZE TIME 
  355. 3550 IF わ$(RND*4)="わ" THEN GOSUB *わ
  356. 3560 IF わ$(RND*4)="を" THEN GOSUB *を
  357. 3570 IF わ$(RND*4)="ん" THEN GOSUB *ん
  358. 3580 IF わ$(RND*4)="ー" THEN GOSUB *ー
  359. 3590 RETURN
  360. 3600 '
  361. 3610 *五十音
  362. 3620 五$(0)="あ" :五$(1)="い" :五$(2)="う" :五$(3)="え" :五$(4)="お"
  363. 3630 五$(5)="か" :五$(6)="き" :五$(7)="く" :五$(8)="け" :五$(9)="こ"
  364. 3640 五$(10)="さ" :五$(11)="し" :五$(12)="す" :五$(13)="せ" :五$(14)="そ"
  365. 3650 五$(15)="た" :五$(16)="ち" :五$(17)="つ" :五$(18)="て" :五$(19)="と"
  366. 3660 五$(20)="な" :五$(21)="に" :五$(22)="ぬ" :五$(23)="ね" :五$(24)="の"
  367. 3670 五$(25)="は" :五$(26)="ひ" :五$(27)="ふ" :五$(28)="へ" :五$(29)="ほ"
  368. 3680 五$(30)="ま" :五$(31)="み" :五$(32)="む" :五$(33)="め" :五$(34)="も"
  369. 3690 五$(35)="や" :五$(36)="ゆ" :五$(37)="よ" 
  370. 3700 五$(38)="ら" :五$(39)="り" :五$(40)="る" :五$(41)="れ" :五$(42)="ろ"
  371. 3710 五$(43)="わ" :五$(44)="を" :五$(45)="ん" :五$(46)="ー" 
  372. 3720 RANDOMIZE TIME 
  373. 3730 IF 五$(RND*47)="あ" THEN GOSUB *あ
  374. 3740 IF 五$(RND*47)="い" THEN GOSUB *い
  375. 3750 IF 五$(RND*47)="う" THEN GOSUB *う
  376. 3760 IF 五$(RND*47)="え" THEN GOSUB *え
  377. 3770 IF 五$(RND*47)="お" THEN GOSUB *お
  378. 3780 IF 五$(RND*47)="か" THEN GOSUB *か
  379. 3790 IF 五$(RND*47)="き" THEN GOSUB *き
  380. 3800 IF 五$(RND*47)="く" THEN GOSUB *く
  381. 3810 IF 五$(RND*47)="け" THEN GOSUB *け
  382. 3820 IF 五$(RND*47)="こ" THEN GOSUB *こ
  383. 3830 IF 五$(RND*47)="さ" THEN GOSUB *さ
  384. 3840 IF 五$(RND*47)="し" THEN GOSUB *し
  385. 3850 IF 五$(RND*47)="す" THEN GOSUB *す
  386. 3860 IF 五$(RND*47)="せ" THEN GOSUB *せ
  387. 3870 IF 五$(RND*47)="そ" THEN GOSUB *そ
  388. 3880 IF 五$(RND*47)="た" THEN GOSUB *た
  389. 3890 IF 五$(RND*47)="ち" THEN GOSUB *ち
  390. 3900 IF 五$(RND*47)="つ" THEN GOSUB *つ
  391. 3910 IF 五$(RND*47)="て" THEN GOSUB *て
  392. 3920 IF 五$(RND*47)="と" THEN GOSUB *と
  393. 3930 IF 五$(RND*47)="な" THEN GOSUB *な
  394. 3940 IF 五$(RND*47)="に" THEN GOSUB *に
  395. 3950 IF 五$(RND*47)="ぬ" THEN GOSUB *ぬ
  396. 3960 IF 五$(RND*47)="ね" THEN GOSUB *ね
  397. 3970 IF 五$(RND*47)="の" THEN GOSUB *の
  398. 3980 IF 五$(RND*47)="は" THEN GOSUB *は
  399. 3990 IF 五$(RND*47)="ひ" THEN GOSUB *ひ
  400. 4000 IF 五$(RND*47)="ふ" THEN GOSUB *ふ
  401. 4010 IF 五$(RND*47)="へ" THEN GOSUB *へ
  402. 4020 IF 五$(RND*47)="ほ" THEN GOSUB *ほ
  403. 4030 IF 五$(RND*47)="ま" THEN GOSUB *ま
  404. 4040 IF 五$(RND*47)="み" THEN GOSUB *み
  405. 4050 IF 五$(RND*47)="む" THEN GOSUB *む
  406. 4060 IF 五$(RND*47)="め" THEN GOSUB *め
  407. 4070 IF 五$(RND*47)="も" THEN GOSUB *も
  408. 4080 IF 五$(RND*47)="や" THEN GOSUB *や
  409. 4090 IF 五$(RND*47)="ゆ" THEN GOSUB *ゆ
  410. 4100 IF 五$(RND*47)="よ" THEN GOSUB *よ
  411. 4110 IF 五$(RND*47)="ら" THEN GOSUB *ら
  412. 4120 IF 五$(RND*47)="り" THEN GOSUB *り
  413. 4130 IF 五$(RND*47)="る" THEN GOSUB *る
  414. 4140 IF 五$(RND*47)="れ" THEN GOSUB *れ
  415. 4150 IF 五$(RND*47)="ろ" THEN GOSUB *ろ
  416. 4160 IF 五$(RND*47)="わ" THEN GOSUB *わ
  417. 4170 IF 五$(RND*47)="を" THEN GOSUB *を
  418. 4180 IF 五$(RND*47)="ん" THEN GOSUB *ん
  419. 4190 IF 五$(RND*47)="ー" THEN GOSUB *ー
  420. 4200 RETURN
  421. 4210 '
  422. 4220 *が行
  423. 4230 が$(0)="が" :が$(1)="ぎ" :が$(2)="ぐ" :が$(3)="げ" :が$(4)="ご"
  424. 4240 RANDOMIZE TIME 
  425. 4250 IF が$(RND*5)="が" THEN GOSUB *が
  426. 4260 IF が$(RND*5)="ぎ" THEN GOSUB *ぎ
  427. 4270 IF が$(RND*5)="ぐ" THEN GOSUB *ぐ
  428. 4280 IF が$(RND*5)="げ" THEN GOSUB *げ
  429. 4290 IF が$(RND*5)="ご" THEN GOSUB *ご
  430. 4300 RETURN
  431. 4310 '
  432. 4320 *ざ行 
  433. 4330 ざ$(0)="ざ" :ざ$(1)="じ" :ざ$(2)="ず" :ざ$(3)="ぜ" :ざ$(4)="ぞ"
  434. 4340 RANDOMIZE TIME 
  435. 4350 IF ざ$(RND*5)="ざ" THEN GOSUB *ざ
  436. 4360 IF ざ$(RND*5)="じ" THEN GOSUB *じ
  437. 4370 IF ざ$(RND*5)="ず" THEN GOSUB *ず
  438. 4380 IF ざ$(RND*5)="ぜ" THEN GOSUB *ぜ
  439. 4390 IF ざ$(RND*5)="ぞ" THEN GOSUB *ぞ
  440. 4400 RETURN
  441. 4410 '
  442. 4420 *だ行
  443. 4430 だ$(0)="だ" :だ$(1)="ぢ" :だ$(2)="づ" :だ$(3)="で" :だ$(4)="ど"
  444. 4440 RANDOMIZE TIME 
  445. 4450 IF だ$(RND*5)="だ" THEN GOSUB *だ
  446. 4460 IF だ$(RND*5)="ぢ" THEN GOSUB *ぢ
  447. 4470 IF だ$(RND*5)="づ" THEN GOSUB *づ
  448. 4480 IF だ$(RND*5)="で" THEN GOSUB *で
  449. 4490 IF だ$(RND*5)="ど" THEN GOSUB *ど
  450. 4500 RETURN
  451. 4510 '
  452. 4520 *ば行
  453. 4530 ば$(0)="ば" :ば$(1)="び" :ば$(2)="ぶ" :ば$(3)="べ" :ば$(4)="ぼ"
  454. 4540 RANDOMIZE TIME 
  455. 4550 IF ば$(RND*5)="ば" THEN GOSUB *ば
  456. 4560 IF ば$(RND*5)="び" THEN GOSUB *び
  457. 4570 IF ば$(RND*5)="ぶ" THEN GOSUB *ぶ
  458. 4580 IF ば$(RND*5)="べ" THEN GOSUB *べ
  459. 4590 IF ば$(RND*5)="ぼ" THEN GOSUB *ぼ
  460. 4600 RETURN
  461. 4610 '
  462. 4620 *ぱ行
  463. 4630 ぱ$(0)="ぱ" :ぱ$(1)="ぴ" :ぱ$(2)="ぷ" :ぱ$(3)="ぺ" :ぱ$(4)="ぽ"
  464. 4640 RANDOMIZE TIME 
  465. 4650 IF ぱ$(RND*5)="ぱ" THEN GOSUB *ぱ
  466. 4660 IF ぱ$(RND*5)="ぴ" THEN GOSUB *ぴ
  467. 4670 IF ぱ$(RND*5)="ぷ" THEN GOSUB *ぷ
  468. 4680 IF ぱ$(RND*5)="ぺ" THEN GOSUB *ぺ
  469. 4690 IF ぱ$(RND*5)="ぽ" THEN GOSUB *ぽ
  470. 4700 RETURN
  471. 4710 '
  472. 4720 *しゃ行
  473. 4730 しゃ$(0)="きゃ" :しゃ$(1)="きゅ" :しゃ$(2)="きょ"
  474. 4740 しゃ$(3)="しゃ" :しゃ$(4)="しゅ" :しゃ$(5)="しょ"
  475. 4750 しゃ$(6)="ちゃ" :しゃ$(7)="ちゅ" :しゃ$(8)="ちょ"
  476. 4760 しゃ$(9)="にゃ" :しゃ$(10)="にゅ" :しゃ$(11)="にょ"
  477. 4770 しゃ$(12)="ひゃ" :しゃ$(13)="ひゅ" :しゃ$(14)="ひょ"
  478. 4780 しゃ$(15)="みゃ" :しゃ$(16)="みゅ" :しゃ$(17)="みょ"
  479. 4790 しゃ$(18)="りゃ" :しゃ$(19)="りゅ" :しゃ$(20)="りょ"
  480. 4800 しゃ$(21)="ぎゃ" :しゃ$(22)="ぎゅ" :しゃ$(23)="ぎょ"
  481. 4810 しゃ$(24)="じゃ" :しゃ$(25)="じゅ" :しゃ$(26)="じょ"
  482. 4820 しゃ$(27)="びゃ" :しゃ$(28)="びゅ" :しゃ$(29)="びょ"
  483. 4830 しゃ$(30)="ぴゃ" :しゃ$(31)="ぴゅ" :しゃ$(32)="ぴょ"
  484. 4840 しゃ$(33)="ふぁ" :しゃ$(34)="ふぇ" :しゃ$(35)="ふぉ"
  485. 4850 RANDOMIZE TIME 
  486. 4860 IF しゃ$(RND*36)="きゃ" THEN GOSUB *きゃ
  487. 4870 IF しゃ$(RND*36)="きゅ" THEN GOSUB *きゅ
  488. 4880 IF しゃ$(RND*36)="きょ" THEN GOSUB *きょ
  489. 4890 IF しゃ$(RND*36)="しゃ" THEN GOSUB *しゃ
  490. 4900 IF しゃ$(RND*36)="しゅ" THEN GOSUB *しゅ
  491. 4910 IF しゃ$(RND*36)="しょ" THEN GOSUB *しょ
  492. 4920 IF しゃ$(RND*36)="ちゃ" THEN GOSUB *ちゃ
  493. 4930 IF しゃ$(RND*36)="ちゅ" THEN GOSUB *ちゅ
  494. 4940 IF しゃ$(RND*36)="ちょ" THEN GOSUB *ちょ
  495. 4950 IF しゃ$(RND*36)="にゃ" THEN GOSUB *にゃ
  496. 4960 IF しゃ$(RND*36)="にゅ" THEN GOSUB *にょ
  497. 4970 IF しゃ$(RND*36)="にょ" THEN GOSUB *にょ
  498. 4980 IF しゃ$(RND*36)="ひゃ" THEN GOSUB *ひゃ
  499. 4990 IF しゃ$(RND*36)="ひゅ" THEN GOSUB *ひゅ
  500. 5000 IF しゃ$(RND*36)="ひょ" THEN GOSUB *ひょ
  501. 5010 IF しゃ$(RND*36)="みゃ" THEN GOSUB *みゃ
  502. 5020 IF しゃ$(RND*36)="みゅ" THEN GOSUB *みゅ
  503. 5030 IF しゃ$(RND*36)="みょ" THEN GOSUB *みょ
  504. 5040 IF しゃ$(RND*36)="りゃ" THEN GOSUB *りゃ
  505. 5050 IF しゃ$(RND*36)="りゅ" THEN GOSUB *りゅ
  506. 5060 IF しゃ$(RND*36)="りょ" THEN GOSUB *りょ
  507. 5070 IF しゃ$(RND*36)="ぎゃ" THEN GOSUB *ぎゃ
  508. 5080 IF しゃ$(RND*36)="ぎゅ" THEN GOSUB *ぎゅ
  509. 5090 IF しゃ$(RND*36)="ぎょ" THEN GOSUB *ぎょ
  510. 5100 IF しゃ$(RND*36)="じゃ" THEN GOSUB *じゃ
  511. 5110 IF しゃ$(RND*36)="じゅ" THEN GOSUB *じゅ
  512. 5120 IF しゃ$(RND*36)="じょ" THEN GOSUB *じょ
  513. 5130 IF しゃ$(RND*36)="びゃ" THEN GOSUB *びゃ
  514. 5140 IF しゃ$(RND*36)="びゅ" THEN GOSUB *びゅ
  515. 5150 IF しゃ$(RND*36)="びょ" THEN GOSUB *びょ
  516. 5160 IF しゃ$(RND*36)="ぴゃ" THEN GOSUB *ぴゃ
  517. 5170 IF しゃ$(RND*36)="ぴゅ" THEN GOSUB *ぴゅ
  518. 5180 IF しゃ$(RND*36)="ぴょ" THEN GOSUB *ぴょ
  519. 5190 IF しゃ$(RND*36)="ふぁ" THEN GOSUB *ふぁ
  520. 5200 IF しゃ$(RND*36)="ふぇ" THEN GOSUB *ふぇ
  521. 5210 IF しゃ$(RND*36)="ふぉ" THEN GOSUB *ふぉ
  522. 5220 RETURN
  523. 5230 '
  524. 5240 *ランダム行
  525. 5250 欄$(0)="あ" :欄$(1)="い" :欄$(2)="う" :欄$(3)="え" :欄$(4)="お"
  526. 5260 欄$(5)="か" :欄$(6)="き" :欄$(7)="く" :欄$(8)="け" :欄$(9)="こ"
  527. 5270 欄$(10)="さ" :欄$(11)="し" :欄$(12)="す" :欄$(13)="せ" :欄$(14)="そ"
  528. 5280 欄$(15)="た" :欄$(16)="ち" :欄$(17)="つ" :欄$(18)="て" :欄$(19)="と"
  529. 5290 欄$(20)="な" :欄$(21)="に" :欄$(22)="ぬ" :欄$(23)="ね" :欄$(24)="の"
  530. 5300 欄$(25)="は" :欄$(26)="ひ" :欄$(27)="ふ" :欄$(28)="へ" :欄$(29)="ほ"
  531. 5310 欄$(30)="ま" :欄$(31)="み" :欄$(32)="む" :欄$(33)="め" :欄$(34)="も"
  532. 5320 欄$(35)="や" :欄$(36)="ゆ" :欄$(37)="よ"
  533. 5330 欄$(38)="ら" :欄$(39)="り" :欄$(40)="る" :欄$(41)="れ" :欄$(42)="ろ"
  534. 5340 欄$(43)="わ" :欄$(44)="を" :欄$(45)="ん" :欄$(46)="ー" 
  535. 5350 欄$(47)="が" :欄$(48)="ぎ" :欄$(49)="ぐ" :欄$(50)="げ" :欄$(51)="ご"
  536. 5360 欄$(52)="ざ" :欄$(53)="じ" :欄$(54)="ず" :欄$(55)="ぜ" :欄$(56)="ぞ"
  537. 5370 欄$(57)="だ" :欄$(58)="ぢ" :欄$(59)="づ" :欄$(60)="で" :欄$(61)="ど"
  538. 5380 欄$(62)="ば" :欄$(63)="び" :欄$(64)="ぶ" :欄$(65)="べ" :欄$(66)="ぼ"
  539. 5390 欄$(67)="ぱ" :欄$(68)="ぴ" :欄$(69)="ぷ" :欄$(70)="ぺ" :欄$(71)="ぽ"
  540. 5400 欄$(72)="きゃ" :欄$(73)="きゅ" :欄$(74)="きょ"
  541. 5410 欄$(75)="しゃ" :欄$(76)="しゅ" :欄$(77)="しょ"
  542. 5420 欄$(78)="ちゃ" :欄$(79)="ちゅ" :欄$(80)="ちょ"
  543. 5430 欄$(81)="にゃ" :欄$(82)="にゅ" :欄$(83)="にょ"
  544. 5440 欄$(84)="ひゃ" :欄$(85)="ひゅ" :欄$(86)="ひょ"
  545. 5450 欄$(87)="みゃ" :欄$(88)="みゅ" :欄$(89)="みょ"
  546. 5460 欄$(90)="りゃ" :欄$(91)="りゅ" :欄$(92)="りょ"
  547. 5470 欄$(93)="ぎゃ" :欄$(94)="ぎゅ" :欄$(95)="ぎょ"
  548. 5480 欄$(96)="じゃ" :欄$(97)="じゅ" :欄$(98)="じょ"
  549. 5490 欄$(99)="びゃ" :欄$(100)="びゅ" :欄$(101)="びょ"
  550. 5500 欄$(102)="ぴゃ" :欄$(103)="ぴゅ" :欄$(104)="ぴょ"
  551. 5510 欄$(105)="ふぁ" :欄$(106)="ふぇ" :欄$(107)="ふぉ"
  552. 5520 RANDOMIZE TIME
  553. 5530 IF 欄$(RND*108)="あ" THEN GOSUB *あ
  554. 5540 IF 欄$(RND*108)="い" THEN GOSUB *い
  555. 5550 IF 欄$(RND*108)="う" THEN GOSUB *う
  556. 5560 IF 欄$(RND*108)="え" THEN GOSUB *え
  557. 5570 IF 欄$(RND*108)="お" THEN GOSUB *お
  558. 5580 IF 欄$(RND*108)="か" THEN GOSUB *か
  559. 5590 IF 欄$(RND*108)="き" THEN GOSUB *き
  560. 5600 IF 欄$(RND*108)="く" THEN GOSUB *く
  561. 5610 IF 欄$(RND*108)="け" THEN GOSUB *け
  562. 5620 IF 欄$(RND*108)="こ" THEN GOSUB *こ
  563. 5630 IF 欄$(RND*108)="さ" THEN GOSUB *さ
  564. 5640 IF 欄$(RND*108)="し" THEN GOSUB *し
  565. 5650 IF 欄$(RND*108)="す" THEN GOSUB *す
  566. 5660 IF 欄$(RND*108)="せ" THEN GOSUB *せ
  567. 5670 IF 欄$(RND*108)="そ" THEN GOSUB *そ
  568. 5680 IF 欄$(RND*108)="た" THEN GOSUB *た
  569. 5690 IF 欄$(RND*108)="ち" THEN GOSUB *ち
  570. 5700 IF 欄$(RND*108)="つ" THEN GOSUB *つ
  571. 5710 IF 欄$(RND*108)="て" THEN GOSUB *て
  572. 5720 IF 欄$(RND*108)="と" THEN GOSUB *と
  573. 5730 IF 欄$(RND*108)="な" THEN GOSUB *な
  574. 5740 IF 欄$(RND*108)="に" THEN GOSUB *に
  575. 5750 IF 欄$(RND*108)="ぬ" THEN GOSUB *ぬ
  576. 5760 IF 欄$(RND*108)="ね" THEN GOSUB *ね
  577. 5770 IF 欄$(RND*108)="の" THEN GOSUB *の
  578. 5780 IF 欄$(RND*108)="は" THEN GOSUB *は
  579. 5790 IF 欄$(RND*108)="ひ" THEN GOSUB *ひ
  580. 5800 IF 欄$(RND*108)="ふ" THEN GOSUB *ふ
  581. 5810 IF 欄$(RND*108)="へ" THEN GOSUB *へ
  582. 5820 IF 欄$(RND*108)="ほ" THEN GOSUB *ほ
  583. 5830 IF 欄$(RND*108)="ま" THEN GOSUB *ま
  584. 5840 IF 欄$(RND*108)="み" THEN GOSUB *み
  585. 5850 IF 欄$(RND*108)="む" THEN GOSUB *む
  586. 5860 IF 欄$(RND*108)="め" THEN GOSUB *め
  587. 5870 IF 欄$(RND*108)="も" THEN GOSUB *も
  588. 5880 IF 欄$(RND*108)="や" THEN GOSUB *や
  589. 5890 IF 欄$(RND*108)="ゆ" THEN GOSUB *ゆ
  590. 5900 IF 欄$(RND*108)="よ" THEN GOSUB *よ
  591. 5910 IF 欄$(RND*108)="ら" THEN GOSUB *ら
  592. 5920 IF 欄$(RND*108)="り" THEN GOSUB *り
  593. 5930 IF 欄$(RND*108)="る" THEN GOSUB *る
  594. 5940 IF 欄$(RND*108)="れ" THEN GOSUB *れ
  595. 5950 IF 欄$(RND*108)="ろ" THEN GOSUB *ろ
  596. 5960 IF 欄$(RND*108)="わ" THEN GOSUB *わ
  597. 5970 IF 欄$(RND*108)="を" THEN GOSUB *を
  598. 5980 IF 欄$(RND*108)="ん" THEN GOSUB *ん
  599. 5990 IF 欄$(RND*108)="ー" THEN GOSUB *ー
  600. 6000 IF 欄$(RND*108)="が" THEN GOSUB *が
  601. 6010 IF 欄$(RND*108)="ぎ" THEN GOSUB *ぎ
  602. 6020 IF 欄$(RND*108)="ぐ" THEN GOSUB *ぐ
  603. 6030 IF 欄$(RND*108)="げ" THEN GOSUB *げ
  604. 6040 IF 欄$(RND*108)="ご" THEN GOSUB *ご
  605. 6050 IF 欄$(RND*108)="ざ" THEN GOSUB *ざ
  606. 6060 IF 欄$(RND*108)="じ" THEN GOSUB *じ
  607. 6070 IF 欄$(RND*108)="ず" THEN GOSUB *ず
  608. 6080 IF 欄$(RND*108)="ぜ" THEN GOSUB *ぜ
  609. 6090 IF 欄$(RND*108)="ぞ" THEN GOSUB *ぞ
  610. 6100 IF 欄$(RND*108)="だ" THEN GOSUB *だ
  611. 6110 IF 欄$(RND*108)="ぢ" THEN GOSUB *ぢ
  612. 6120 IF 欄$(RND*108)="づ" THEN GOSUB *づ
  613. 6130 IF 欄$(RND*108)="で" THEN GOSUB *で
  614. 6140 IF 欄$(RND*108)="ど" THEN GOSUB *ど
  615. 6150 IF 欄$(RND*108)="ば" THEN GOSUB *ば
  616. 6160 IF 欄$(RND*108)="び" THEN GOSUB *び
  617. 6170 IF 欄$(RND*108)="ぶ" THEN GOSUB *ぶ
  618. 6180 IF 欄$(RND*108)="べ" THEN GOSUB *べ
  619. 6190 IF 欄$(RND*108)="ぼ" THEN GOSUB *ぼ
  620. 6200 IF 欄$(RND*108)="ぱ" THEN GOSUB *ぱ
  621. 6210 IF 欄$(RND*108)="ぴ" THEN GOSUB *ぴ
  622. 6220 IF 欄$(RND*108)="ぷ" THEN GOSUB *ぷ
  623. 6230 IF 欄$(RND*108)="ぺ" THEN GOSUB *ぺ
  624. 6240 IF 欄$(RND*108)="ぽ" THEN GOSUB *ぽ
  625. 6250 IF 欄$(RND*108)="きゃ" THEN GOSUB *きゃ
  626. 6260 IF 欄$(RND*108)="きゅ" THEN GOSUB *きゅ
  627. 6270 IF 欄$(RND*108)="きょ" THEN GOSUB *きょ
  628. 6280 IF 欄$(RND*108)="しゃ" THEN GOSUB *しゃ
  629. 6290 IF 欄$(RND*108)="しゅ" THEN GOSUB *しゅ
  630. 6300 IF 欄$(RND*108)="しょ" THEN GOSUB *しょ
  631. 6310 IF 欄$(RND*108)="ちゃ" THEN GOSUB *ちゃ
  632. 6320 IF 欄$(RND*108)="ちゅ" THEN GOSUB *ちゅ
  633. 6330 IF 欄$(RND*108)="ちょ" THEN GOSUB *ちょ
  634. 6340 IF 欄$(RND*108)="にゃ" THEN GOSUB *にゃ
  635. 6350 IF 欄$(RND*108)="にゅ" THEN GOSUB *にゅ
  636. 6360 IF 欄$(RND*108)="にょ" THEN GOSUB *にょ
  637. 6370 IF 欄$(RND*108)="ひゃ" THEN GOSUB *ひゃ
  638. 6380 IF 欄$(RND*108)="ひゅ" THEN GOSUB *ひゅ
  639. 6390 IF 欄$(RND*108)="ひょ" THEN GOSUB *ひょ
  640. 6400 IF 欄$(RND*108)="みゃ" THEN GOSUB *みゃ
  641. 6410 IF 欄$(RND*108)="みゅ" THEN GOSUB *みゅ
  642. 6420 IF 欄$(RND*108)="みょ" THEN GOSUB *みょ
  643. 6430 IF 欄$(RND*108)="りゃ" THEN GOSUB *りゃ
  644. 6440 IF 欄$(RND*108)="りゅ" THEN GOSUB *りゅ
  645. 6450 IF 欄$(RND*108)="りょ" THEN GOSUB *りょ
  646. 6460 IF 欄$(RND*108)="ぎゃ" THEN GOSUB *ぎゃ
  647. 6470 IF 欄$(RND*108)="ぎゅ" THEN GOSUB *ぎゅ
  648. 6480 IF 欄$(RND*108)="ぎょ" THEN GOSUB *ぎょ
  649. 6490 IF 欄$(RND*108)="じゃ" THEN GOSUB *じゃ
  650. 6500 IF 欄$(RND*108)="じゅ" THEN GOSUB *じゅ
  651. 6510 IF 欄$(RND*108)="じょ" THEN GOSUB *じょ
  652. 6520 IF 欄$(RND*108)="びゃ" THEN GOSUB *びゃ
  653. 6530 IF 欄$(RND*108)="びゅ" THEN GOSUB *びゅ
  654. 6540 IF 欄$(RND*108)="びょ" THEN GOSUB *びょ
  655. 6550 IF 欄$(RND*108)="ぴゃ" THEN GOSUB *ぴゃ
  656. 6560 IF 欄$(RND*108)="ぴゅ" THEN GOSUB *ぴゅ
  657. 6570 IF 欄$(RND*108)="ぴょ" THEN GOSUB *ぴょ
  658. 6580 IF 欄$(RND*108)="ふぁ" THEN GOSUB *ふぁ
  659. 6590 IF 欄$(RND*108)="ふぇ" THEN GOSUB *ふぇ
  660. 6600 IF 欄$(RND*108)="ふぉ" THEN GOSUB *ふぉ
  661. 6610 RETURN
  662. 6620 '
  663. 6630 ' 
  664. 6640 '
  665. 6650 *あ
  666. 6660 SYMBOL(250,110),"あ",7,5,%0,,,1 
  667. 6670 GOSUB *A 
  668. 6680 SYMBOL(250,110),"あ",7,5,%3,,,1
  669. 6690 RETURN
  670. 6700 '
  671. 6710 *い
  672. 6720 SYMBOL(250,110),"い",7,5,%0,,,1
  673. 6730 GOSUB *I
  674. 6740 SYMBOL(250,110),"い",7,5,%3,,,1
  675. 6750 RETURN
  676. 6760 '
  677. 6770 *う
  678. 6780 SYMBOL(250,110),"う",7,5,%0,,,1
  679. 6790 GOSUB *U
  680. 6800 SYMBOL(250,110),"う",7,5,%3,,,1
  681. 6810 RETURN
  682. 6820 '
  683. 6830 *え
  684. 6840 SYMBOL(250,110),"え",7,5,%0,,,1
  685. 6850 GOSUB *E
  686. 6860 SYMBOL(250,110),"え",7,5,%3,,,1
  687. 6870 RETURN
  688. 6880 '
  689. 6890 *お
  690. 6900 SYMBOL(250,110),"お",7,5,%0,,,1
  691. 6910 GOSUB *O
  692. 6920 SYMBOL(250,110),"お",7,5,%3,,,1
  693. 6930 RETURN
  694. 6940 '
  695. 6950 *か
  696. 6960 SYMBOL(250,110),"か",7,5,%0,,,1
  697. 6970 GOSUB *K
  698. 6980 GOSUB *A
  699. 6990 SYMBOL(250,110),"か",7,5,%3,,,1
  700. 7000 RETURN
  701. 7010 '
  702. 7020 *き
  703. 7030 SYMBOL(250,110),"き",7,5,%0,,,1
  704. 7040 GOSUB *K
  705. 7050 GOSUB *I
  706. 7060 SYMBOL(250,110),"き",7,5,%3,,,1
  707. 7070 RETURN 
  708. 7080 '
  709. 7090 *く
  710. 7100 SYMBOL(250,110),"く",7,5,%0,,,1
  711. 7110 GOSUB *K
  712. 7120 GOSUB *U
  713. 7130 SYMBOL(250,110),"く",7,5,%3,,,1
  714. 7140 RETURN
  715. 7150 '
  716. 7160 *け
  717. 7170 SYMBOL(250,110),"け",7,5,%0,,,1
  718. 7180 GOSUB *K
  719. 7190 GOSUB *E
  720. 7200 SYMBOL(250,110),"け",7,5,%3,,,1
  721. 7210 RETURN
  722. 7220 '
  723. 7230 *こ
  724. 7240 SYMBOL(250,110),"こ",7,5,%0,,,1
  725. 7250 GOSUB *K
  726. 7260 GOSUB *O
  727. 7270 SYMBOL(250,110),"こ",7,5,%3,,,1
  728. 7280 RETURN
  729. 7290 '
  730. 7300 *さ
  731. 7310 SYMBOL(250,110),"さ",7,5,%0,,,1
  732. 7320 GOSUB *S
  733. 7330 GOSUB *A
  734. 7340 SYMBOL(250,110),"さ",7,5,%3,,,1
  735. 7350 RETURN
  736. 7360 '
  737. 7370 *し
  738. 7380 SYMBOL(250,110),"し",7,5,%0,,,1
  739. 7390 GOSUB *S
  740. 7400 GOSUB *I
  741. 7410 SYMBOL(250,110),"し",7,5,%3,,,1
  742. 7420 RETURN
  743. 7430 '
  744. 7440 *す
  745. 7450 SYMBOL(250,110),"す",7,5,%0,,,1
  746. 7460 GOSUB *S
  747. 7470 GOSUB *U
  748. 7480 SYMBOL(250,110),"す",7,5,%3,,,1
  749. 7490 RETURN
  750. 7500 '
  751. 7510 *せ
  752. 7520 SYMBOL(250,110),"せ",7,5,%0,,,1
  753. 7530 GOSUB *S
  754. 7540 GOSUB *E
  755. 7550 SYMBOL(250,110),"せ",7,5,%3,,,1
  756. 7560 RETURN
  757. 7570 '
  758. 7580 *そ
  759. 7590 SYMBOL(250,110),"そ",7,5,%0,,,1
  760. 7600 GOSUB *S
  761. 7610 GOSUB *O
  762. 7620 SYMBOL(250,110),"そ",7,5,%3,,,1
  763. 7630 RETURN
  764. 7640 '
  765. 7650 *た
  766. 7660 SYMBOL(250,110),"た",7,5,%0,,,1
  767. 7670 GOSUB *T
  768. 7680 GOSUB *A
  769. 7690 SYMBOL(250,110),"た",7,5,%3,,,1
  770. 7700 RETURN
  771. 7710 '
  772. 7720 *ち
  773. 7730 SYMBOL(250,110),"ち",7,5,%0,,,1
  774. 7740 GOSUB *T
  775. 7750 GOSUB *I
  776. 7760 SYMBOL(250,110),"ち",7,5,%3,,,1
  777. 7770 RETURN
  778. 7780 '
  779. 7790 *つ
  780. 7800 SYMBOL(250,110),"つ",7,5,%0,,,1
  781. 7810 GOSUB *T
  782. 7820 GOSUB *U
  783. 7830 SYMBOL(250,110),"つ",7,5,%3,,,1
  784. 7840 RETURN
  785. 7850 '
  786. 7860 *て
  787. 7870 SYMBOL(250,110),"て",7,5,%0,,,1
  788. 7880 GOSUB *T
  789. 7890 GOSUB *E
  790. 7900 SYMBOL(250,110),"て",7,5,%3,,,1
  791. 7910 RETURN
  792. 7920 '
  793. 7930 *と
  794. 7940 SYMBOL(250,110),"と",7,5,%0,,,1
  795. 7950 GOSUB *T
  796. 7960 GOSUB *O
  797. 7970 SYMBOL(250,110),"と",7,5,%3,,,1
  798. 7980 RETURN
  799. 7990 '
  800. 8000 *な
  801. 8010 SYMBOL(250,110),"な",7,5,%0,,,1
  802. 8020 GOSUB *N
  803. 8030 GOSUB *A
  804. 8040 SYMBOL(250,110),"な",7,5,%3,,,1
  805. 8050 RETURN
  806. 8060 '
  807. 8070 *に
  808. 8080 SYMBOL(250,110),"に",7,5,%0,,,1
  809. 8090 GOSUB *N
  810. 8100 GOSUB *I
  811. 8110 SYMBOL(250,110),"に",7,5,%3,,,1
  812. 8120 RETURN
  813. 8130 '
  814. 8140 *ぬ
  815. 8150 SYMBOL(250,110),"ぬ",7,5,%0,,,1
  816. 8160 GOSUB *N
  817. 8170 GOSUB *U
  818. 8180 SYMBOL(250,110),"ぬ",7,5,%3,,,1
  819. 8190 RETURN
  820. 8200 '
  821. 8210 *ね
  822. 8220 SYMBOL(250,110),"ね",7,5,%0,,,1
  823. 8230 GOSUB *N
  824. 8240 GOSUB *E
  825. 8250 SYMBOL(250,110),"ね",7,5,%3,,,1
  826. 8260 RETURN
  827. 8270 '
  828. 8280 *の
  829. 8290 SYMBOL(250,110),"の",7,5,%0,,,1
  830. 8300 GOSUB *N
  831. 8310 GOSUB *O
  832. 8320 SYMBOL(250,110),"の",7,5,%3,,,1
  833. 8330 RETURN
  834. 8340 '
  835. 8350 *は
  836. 8360 SYMBOL(250,110),"は",7,5,%0,,,1
  837. 8370 GOSUB *H
  838. 8380 GOSUB *A
  839. 8390 SYMBOL(250,110),"は",7,5,%3,,,1
  840. 8400 RETURN
  841. 8410 '
  842. 8420 *ひ
  843. 8430 SYMBOL(250,110),"ひ",7,5,%0,,,1
  844. 8440 GOSUB *H
  845. 8450 GOSUB *I
  846. 8460 SYMBOL(250,110),"ひ",7,5,%3,,,1
  847. 8470 RETURN
  848. 8480 '
  849. 8490 *ふ
  850. 8500 SYMBOL(250,110),"ふ",7,5,%0,,,1
  851. 8510 GOSUB *H
  852. 8520 GOSUB *U
  853. 8530 SYMBOL(250,110),"ふ",7,5,%3,,,1
  854. 8540 RETURN
  855. 8550 '
  856. 8560 *へ
  857. 8570 SYMBOL(250,110),"へ",7,5,%0,,,1
  858. 8580 GOSUB *H
  859. 8590 GOSUB *E
  860. 8600 SYMBOL(250,110),"へ",7,5,%3,,,1
  861. 8610 RETURN 
  862. 8620 '
  863. 8630 *ほ
  864. 8640 SYMBOL(250,110),"ほ",7,5,%0,,,1
  865. 8650 GOSUB *H
  866. 8660 GOSUB *O
  867. 8670 SYMBOL(250,110),"ほ",7,5,%3,,,1
  868. 8680 RETURN
  869. 8690 '
  870. 8700 *ま
  871. 8710 SYMBOL(250,110),"ま",7,5,%0,,,1
  872. 8720 GOSUB *M
  873. 8730 GOSUB *A
  874. 8740 SYMBOL(250,110),"ま",7,5,%3,,,1
  875. 8750 RETURN
  876. 8760 '
  877. 8770 *み
  878. 8780 SYMBOL(250,110),"み",7,5,%0,,,1
  879. 8790 GOSUB *M
  880. 8800 GOSUB *I
  881. 8810 SYMBOL(250,110),"み",7,5,%3,,,1
  882. 8820 RETURN
  883. 8830 '
  884. 8840 *む
  885. 8850 SYMBOL(250,110),"む",7,5,%0,,,1
  886. 8860 GOSUB *M
  887. 8870 GOSUB *U
  888. 8880 SYMBOL(250,110),"む",7,5,%3,,,1
  889. 8890 RETURN
  890. 8900 '
  891. 8910 *め
  892. 8920 SYMBOL(250,110),"め",7,5,%0,,,1
  893. 8930 GOSUB *M
  894. 8940 GOSUB *E
  895. 8950 SYMBOL(250,110),"め",7,5,%3,,,1
  896. 8960 RETURN
  897. 8970 '
  898. 8980 *も
  899. 8990 SYMBOL(250,110),"も",7,5,%0,,,1
  900. 9000 GOSUB *M
  901. 9010 GOSUB *O
  902. 9020 SYMBOL(250,110),"も",7,5,%3,,,1
  903. 9030 RETURN
  904. 9040 '
  905. 9050 *や
  906. 9060 SYMBOL(250,110),"や",7,5,%0,,,1
  907. 9070 GOSUB *Y
  908. 9080 GOSUB *A
  909. 9090 SYMBOL(250,110),"や",7,5,%3,,,1
  910. 9100 RETURN
  911. 9110 '
  912. 9120 *ゆ
  913. 9130 SYMBOL(250,110),"ゆ",7,5,%0,,,1
  914. 9140 GOSUB *Y
  915. 9150 GOSUB *U
  916. 9160 SYMBOL(250,110),"ゆ",7,5,%3,,,1
  917. 9170 RETURN
  918. 9180 '
  919. 9190 *よ
  920. 9200 SYMBOL(250,110),"よ",7,5,%0,,,1
  921. 9210 GOSUB *Y
  922. 9220 GOSUB *O
  923. 9230 SYMBOL(250,110),"よ",7,5,%3,,,1
  924. 9240 RETURN
  925. 9250 '
  926. 9260 *ら
  927. 9270 SYMBOL(250,110),"ら",7,5,%0,,,1
  928. 9280 GOSUB *R
  929. 9290 GOSUB *A
  930. 9300 SYMBOL(250,110),"ら",7,5,%3,,,1
  931. 9310 RETURN
  932. 9320 '
  933. 9330 *り
  934. 9340 SYMBOL(250,110),"り",7,5,%0,,,1
  935. 9350 GOSUB *R
  936. 9360 GOSUB *I
  937. 9370 SYMBOL(250,110),"り",7,5,%3,,,1
  938. 9380 RETURN
  939. 9390 '
  940. 9400 *る
  941. 9410 SYMBOL(250,110),"る",7,5,%0,,,1
  942. 9420 GOSUB *R
  943. 9430 GOSUB *U
  944. 9440 SYMBOL(250,110),"る",7,5,%3,,,1
  945. 9450 RETURN
  946. 9460 '
  947. 9470 *れ
  948. 9480 SYMBOL(250,110),"れ",7,5,%0,,,1
  949. 9490 GOSUB *R
  950. 9500 GOSUB *E
  951. 9510 SYMBOL(250,110),"れ",7,5,%3,,,1
  952. 9520 RETURN
  953. 9530 '
  954. 9540 *ろ
  955. 9550 SYMBOL(250,110),"ろ",7,5,%0,,,1
  956. 9560 GOSUB *R
  957. 9570 GOSUB *O
  958. 9580 SYMBOL(250,110),"ろ",7,5,%3,,,1
  959. 9590 RETURN
  960. 9600 '
  961. 9610 *わ
  962. 9620 SYMBOL(250,110),"わ",7,5,%0,,,1
  963. 9630 GOSUB *W
  964. 9640 GOSUB *A
  965. 9650 SYMBOL(250,110),"わ",7,5,%3,,,1
  966. 9660 RETURN
  967. 9670 '
  968. 9680 *を
  969. 9690 SYMBOL(250,110),"を",7,5,%0,,,1
  970. 9700 GOSUB *W
  971. 9710 GOSUB *O
  972. 9720 SYMBOL(250,110),"を",7,5,%3,,,1
  973. 9730 RETURN
  974. 9740 '
  975. 9750 *ん
  976. 9760 SYMBOL(250,110),"ん",7,5,%0,,,1
  977. 9770 GOSUB *N
  978. 9780 GOSUB *N
  979. 9790 SYMBOL(250,110),"ん",7,5,%3,,,1
  980. 9800 RETURN 
  981. 9810 '
  982. 9820 *ー
  983. 9830 SYMBOL(250,110),"ー",7,5,%0,,,1
  984. 9840 GOSUB *X
  985. 9850 SYMBOL(250,110),"ー",7,5,%3,,,1
  986. 9860 RETURN
  987. 9870 '
  988. 9880 *が
  989. 9890 SYMBOL(250,110),"が",7,5,%0,,,1
  990. 9900 GOSUB *G
  991. 9910 GOSUB *A
  992. 9920 SYMBOL(250,110),"が",7,5,%3,,,1
  993. 9930 RETURN
  994. 9940 '
  995. 9950 *ぎ
  996. 9960 SYMBOL(250,110),"ぎ",7,5,%0,,,1
  997. 9970 GOSUB *G
  998. 9980 GOSUB *I
  999. 9990 SYMBOL(250,110),"ぎ",7,5,%3,,,1
  1000. 10000 RETURN
  1001. 10010 '
  1002. 10020 *ぐ
  1003. 10030 SYMBOL(250,110),"ぐ",7,5,%0,,,1
  1004. 10040 GOSUB *G
  1005. 10050 GOSUB *U
  1006. 10060 SYMBOL(250,110),"ぐ",7,5,%3,,,1
  1007. 10070 RETURN 
  1008. 10080 '
  1009. 10090 *げ
  1010. 10100 SYMBOL(250,110),"げ",7,5,%0,,,1
  1011. 10110 GOSUB *G
  1012. 10120 GOSUB *E
  1013. 10130 SYMBOL(250,110),"げ",7,5,%3,,,1
  1014. 10140 RETURN
  1015. 10150 '
  1016. 10160 *ご
  1017. 10170 SYMBOL(250,110),"ご",7,5,%0,,,1
  1018. 10180 GOSUB *G
  1019. 10190 GOSUB *O
  1020. 10200 SYMBOL(250,110),"ご",7,5,%3,,,1
  1021. 10210 RETURN
  1022. 10220 '
  1023. 10230 *ざ 
  1024. 10240 SYMBOL(250,110),"ざ",7,5,%0,,,1
  1025. 10250 GOSUB *Z
  1026. 10260 GOSUB *A
  1027. 10270 SYMBOL(250,110),"ざ",7,5,%3,,,1
  1028. 10280 RETURN
  1029. 10290 '
  1030. 10300 *じ
  1031. 10310 SYMBOL(250,110),"じ",7,5,%0,,,1
  1032. 10320 GOSUB *Z
  1033. 10330 GOSUB *I
  1034. 10340 SYMBOL(250,110),"じ",7,5,%3,,,1
  1035. 10350 RETURN
  1036. 10360 '
  1037. 10370 *ず
  1038. 10380 SYMBOL(250,110),"ず",7,5,%0,,,1
  1039. 10390 GOSUB *Z
  1040. 10400 GOSUB *U
  1041. 10410 SYMBOL(250,110),"ず",7,5,%3,,,1
  1042. 10420 RETURN
  1043. 10430 '
  1044. 10440 *ぜ
  1045. 10450 SYMBOL(250,110),"ぜ",7,5,%0,,,1
  1046. 10460 GOSUB *Z
  1047. 10470 GOSUB *E
  1048. 10480 SYMBOL(250,110),"ぜ",7,5,%3,,,1
  1049. 10490 RETURN
  1050. 10500 '
  1051. 10510 *ぞ
  1052. 10520 SYMBOL(250,110),"ぞ",7,5,%0,,,1
  1053. 10530 GOSUB *Z
  1054. 10540 GOSUB *O
  1055. 10550 SYMBOL(250,110),"ぞ",7,5,%3,,,1
  1056. 10560 RETURN
  1057. 10570 '
  1058. 10580 *だ
  1059. 10590 SYMBOL(250,110),"だ",7,5,%0,,,1
  1060. 10600 GOSUB *D
  1061. 10610 GOSUB *A
  1062. 10620 SYMBOL(250,110),"だ",7,5,%3,,,1
  1063. 10630 RETURN
  1064. 10640 '
  1065. 10650 *ぢ
  1066. 10660 SYMBOL(250,110),"ぢ",7,5,%0,,,1
  1067. 10670 GOSUB *D
  1068. 10680 GOSUB *I
  1069. 10690 SYMBOL(250,110),"ぢ",7,5,%3,,,1
  1070. 10700 RETURN
  1071. 10710 '
  1072. 10720 *づ
  1073. 10730 SYMBOL(250,110),"づ",7,5,%0,,,1
  1074. 10740 GOSUB *D
  1075. 10750 GOSUB *U
  1076. 10760 SYMBOL(250,110),"づ",7,5,%3,,,1
  1077. 10770 RETURN
  1078. 10780 '
  1079. 10790 *で
  1080. 10800 SYMBOL(250,110),"で",7,5,%0,,,1
  1081. 10810 GOSUB *D
  1082. 10820 GOSUB *E
  1083. 10830 SYMBOL(250,110),"で",7,5,%3,,,1
  1084. 10840 RETURN
  1085. 10850 '
  1086. 10860 *ど
  1087. 10870 SYMBOL(250,110),"ど",7,5,%0,,,1
  1088. 10880 GOSUB *D
  1089. 10890 GOSUB *O
  1090. 10900 SYMBOL(250,110),"ど",7,5,%3,,,1
  1091. 10910 RETURN
  1092. 10920 '
  1093. 10930 *ば
  1094. 10940 SYMBOL(250,110),"ば",7,5,%0,,,1
  1095. 10950 GOSUB *B
  1096. 10960 GOSUB *A
  1097. 10970 SYMBOL(250,110),"ば",7,5,%3,,,1
  1098. 10980 RETURN
  1099. 10990 '
  1100. 11000 *び
  1101. 11010 SYMBOL(250,110),"び",7,5,%0,,,1
  1102. 11020 GOSUB *B
  1103. 11030 GOSUB *I
  1104. 11040 SYMBOL(250,110),"び",7,5,%3,,,1
  1105. 11050 RETURN
  1106. 11060 '
  1107. 11070 *ぶ
  1108. 11080 SYMBOL(250,110),"ぶ",7,5,%0,,,1
  1109. 11090 GOSUB *B
  1110. 11100 GOSUB *U
  1111. 11110 SYMBOL(250,110),"ぶ",7,5,%3,,,1
  1112. 11120 RETURN
  1113. 11130 '
  1114. 11140 *べ
  1115. 11150 SYMBOL(250,110),"べ",7,5,%0,,,1
  1116. 11160 GOSUB *B
  1117. 11170 GOSUB *E
  1118. 11180 SYMBOL(250,110),"べ",7,5,%3,,,1
  1119. 11190 RETURN
  1120. 11200 '
  1121. 11210 *ぼ
  1122. 11220 SYMBOL(250,110),"ぼ",7,5,%0,,,1
  1123. 11230 GOSUB *B
  1124. 11240 GOSUB *O
  1125. 11250 SYMBOL(250,110),"ぼ",7,5,%3,,,1
  1126. 11260 RETURN
  1127. 11270 '
  1128. 11280 *ぱ
  1129. 11290 SYMBOL(250,110),"ぱ",7,5,%0,,,1
  1130. 11300 GOSUB *P
  1131. 11310 GOSUB *A
  1132. 11320 SYMBOL(250,110),"ぱ",7,5,%3,,,1
  1133. 11330 RETURN
  1134. 11340 '
  1135. 11350 *ぴ
  1136. 11360 SYMBOL(250,110),"ぴ",7,5,%0,,,1
  1137. 11370 GOSUB *P
  1138. 11380 GOSUB *I
  1139. 11390 SYMBOL(250,110),"ぴ",7,5,%3,,,1
  1140. 11400 RETURN
  1141. 11410 '
  1142. 11420 *ぷ
  1143. 11430 SYMBOL(250,110),"ぷ",7,5,%0,,,1
  1144. 11440 GOSUB *P
  1145. 11450 GOSUB *U
  1146. 11460 SYMBOL(250,110),"ぷ",7,5,%3,,,1
  1147. 11470 RETURN
  1148. 11480 '
  1149. 11490 *ぺ
  1150. 11500 SYMBOL(250,110),"ぺ",7,5,%0,,,1
  1151. 11510 GOSUB *P
  1152. 11520 GOSUB *E
  1153. 11530 SYMBOL(250,110),"ぺ",7,5,%3,,,1
  1154. 11540 RETURN
  1155. 11550 '
  1156. 11560 *ぽ
  1157. 11570 SYMBOL(250,110),"ぽ",7,5,%0,,,1
  1158. 11580 GOSUB *P
  1159. 11590 GOSUB *O
  1160. 11600 SYMBOL(250,110),"ぽ",7,5,%3,,,1
  1161. 11610 RETURN
  1162. 11620 '
  1163. 11630 *きゃ
  1164. 11640 SYMBOL(250,110),"きゃ",7,5,%0,,,1
  1165. 11650 GOSUB *K
  1166. 11660 GOSUB *Y
  1167. 11670 GOSUB *A
  1168. 11680 SYMBOL(250,110),"きゃ",7,5,%3,,,1
  1169. 11690 RETURN
  1170. 11700 '
  1171. 11710 *きゅ
  1172. 11720 SYMBOL(250,110),"きゅ",7,5,%0,,,1
  1173. 11730 GOSUB *K
  1174. 11740 GOSUB *Y
  1175. 11750 GOSUB *U
  1176. 11760 SYMBOL(250,110),"きゅ",7,5,%3,,,1
  1177. 11770 RETURN
  1178. 11780 '
  1179. 11790 *きょ
  1180. 11800 SYMBOL(250,110),"きょ",7,5,%0,,,1
  1181. 11810 GOSUB *K
  1182. 11820 GOSUB *Y
  1183. 11830 GOSUB *O
  1184. 11840 SYMBOL(250,110),"きょ",7,5,%3,,,1
  1185. 11850 RETURN
  1186. 11860 '
  1187. 11870 *しゃ
  1188. 11880 SYMBOL(250,110),"しゃ",7,5,%0,,,1
  1189. 11890 GOSUB *S
  1190. 11900 GOSUB *Y
  1191. 11910 GOSUB *A
  1192. 11920 SYMBOL(250,110),"しゃ",7,5,%3,,,1
  1193. 11930 RETURN
  1194. 11940 '
  1195. 11950 *しゅ
  1196. 11960 SYMBOL(250,110),"しゅ",7,5,%0,,,1
  1197. 11970 GOSUB *S
  1198. 11980 GOSUB *Y
  1199. 11990 GOSUB *U
  1200. 12000 SYMBOL(250,110),"しゅ",7,5,%3,,,1
  1201. 12010 RETURN 
  1202. 12020 '
  1203. 12030 *しょ
  1204. 12040 SYMBOL(250,110),"しょ",7,5,%0,,,1
  1205. 12050 GOSUB *S
  1206. 12060 GOSUB *Y
  1207. 12070 GOSUB *O
  1208. 12080 SYMBOL(250,110),"しょ",7,5,%3,,,1
  1209. 12090 RETURN
  1210. 12100 '
  1211. 12110 *ちゃ
  1212. 12120 SYMBOL(250,110),"ちゃ",7,5,%0,,,1
  1213. 12130 GOSUB *T
  1214. 12140 GOSUB *Y
  1215. 12150 GOSUB *A
  1216. 12160 SYMBOL(250,110),"ちゃ",7,5,%3,,,1
  1217. 12170 RETURN
  1218. 12180 '
  1219. 12190 *ちゅ
  1220. 12200 SYMBOL(250,110),"ちゅ",7,5,%0,,,1
  1221. 12210 GOSUB *T
  1222. 12220 GOSUB *Y
  1223. 12230 GOSUB *U
  1224. 12240 SYMBOL(250,110),"ちゅ",7,5,%3,,,1
  1225. 12250 RETURN
  1226. 12260 '
  1227. 12270 *ちょ
  1228. 12280 SYMBOL(250,110),"ちょ",7,5,%0,,,1
  1229. 12290 GOSUB *T
  1230. 12300 GOSUB *Y
  1231. 12310 GOSUB *O
  1232. 12320 SYMBOL(250,110),"ちょ",7,5,%3,,,1
  1233. 12330 RETURN
  1234. 12340 '
  1235. 12350 *にゃ
  1236. 12360 SYMBOL(250,110),"にゃ",7,5,%0,,,1
  1237. 12370 GOSUB *N
  1238. 12380 GOSUB *Y
  1239. 12390 GOSUB *A
  1240. 12400 SYMBOL(250,110),"にゃ",7,5,%3,,,1
  1241. 12410 RETURN
  1242. 12420 '
  1243. 12430 *にゅ 
  1244. 12440 SYMBOL(250,110),"にゅ",7,5,%0,,,1
  1245. 12450 GOSUB *N
  1246. 12460 GOSUB *Y
  1247. 12470 GOSUB *U
  1248. 12480 SYMBOL(250,110),"にゅ",7,5,%3,,,1
  1249. 12490 RETURN
  1250. 12500 '
  1251. 12510 *にょ
  1252. 12520 SYMBOL(250,110),"にょ",7,5,%0,,,1
  1253. 12530 GOSUB *N
  1254. 12540 GOSUB *Y
  1255. 12550 GOSUB *O
  1256. 12560 SYMBOL(250,110),"にょ",7,5,%3,,,1
  1257. 12570 RETURN
  1258. 12580 '
  1259. 12590 *ひゃ
  1260. 12600 SYMBOL(250,110),"ひゃ",7,5,%0,,,1
  1261. 12610 GOSUB *H
  1262. 12620 GOSUB *Y
  1263. 12630 GOSUB *A
  1264. 12640 SYMBOL(250,110),"ひゃ",7,5,%3,,,1
  1265. 12650 RETURN
  1266. 12660 '
  1267. 12670 *ひゅ
  1268. 12680 SYMBOL(250,110),"ひゅ",7,5,%0,,,1
  1269. 12690 GOSUB *H
  1270. 12700 GOSUB *Y
  1271. 12710 GOSUB *U
  1272. 12720 SYMBOL(250,110),"ひゅ",7,5,%3,,,1
  1273. 12730 RETURN
  1274. 12740 '
  1275. 12750 *ひょ 
  1276. 12760 SYMBOL(250,110),"ひょ",7,5,%0,,,1
  1277. 12770 GOSUB *H 
  1278. 12780 GOSUB *Y
  1279. 12790 GOSUB *O 
  1280. 12800 SYMBOL(250,110),"ひょ",7,5,%3,,,1
  1281. 12810 RETURN
  1282. 12820 '
  1283. 12830 *みゃ
  1284. 12840 SYMBOL(250,110),"みゃ",7,5,%0,,,1
  1285. 12850 GOSUB *M 
  1286. 12860 GOSUB *Y
  1287. 12870 GOSUB *A
  1288. 12880 SYMBOL(250,110),"みゃ",7,5,%3,,,1
  1289. 12890 RETURN
  1290. 12900 '
  1291. 12910 *みゅ
  1292. 12920 SYMBOL(250,110),"みゅ",7,5,%0,,,1
  1293. 12930 GOSUB *M
  1294. 12940 GOSUB *Y 
  1295. 12950 GOSUB *U
  1296. 12960 SYMBOL(250,110),"みゅ",7,5,%3,,,1
  1297. 12970 RETURN
  1298. 12980 '
  1299. 12990 *みょ
  1300. 13000 SYMBOL(250,110),"みょ",7,5,%0,,,1
  1301. 13010 GOSUB *M
  1302. 13020 GOSUB *Y
  1303. 13030 GOSUB *O
  1304. 13040 SYMBOL(250,110),"みょ",7,5,%3,,,1
  1305. 13050 RETURN
  1306. 13060 '
  1307. 13070 *りゃ
  1308. 13080 SYMBOL(250,110),"りゃ",7,5,%0,,,1
  1309. 13090 GOSUB *R
  1310. 13100 GOSUB *Y
  1311. 13110 GOSUB *A
  1312. 13120 SYMBOL(250,110),"りゃ",7,5,%3,,,1
  1313. 13130 RETURN
  1314. 13140 '
  1315. 13150 *りゅ
  1316. 13160 SYMBOL(250,110),"りゅ",7,5,%0,,,1
  1317. 13170 GOSUB *R
  1318. 13180 GOSUB *Y
  1319. 13190 GOSUB *U
  1320. 13200 SYMBOL(250,110),"りゅ",7,5,%3,,,1
  1321. 13210 RETURN
  1322. 13220 '
  1323. 13230 *りょ
  1324. 13240 SYMBOL(250,110),"りょ",7,5,%0,,,1
  1325. 13250 GOSUB *R
  1326. 13260 GOSUB *Y
  1327. 13270 GOSUB *O
  1328. 13280 SYMBOL(250,110),"りょ",7,5,%3,,,1
  1329. 13290 RETURN
  1330. 13300 '
  1331. 13310 *ぎゃ
  1332. 13320 SYMBOL(250,110),"ぎゃ",7,5,%0,,,1
  1333. 13330 GOSUB *G
  1334. 13340 GOSUB *Y
  1335. 13350 GOSUB *A
  1336. 13360 SYMBOL(250,110),"ぎゃ",7,5,%3,,,1
  1337. 13370 RETURN
  1338. 13380 '
  1339. 13390 *ぎゅ
  1340. 13400 SYMBOL(250,110),"ぎゅ",7,5,%0,,,1
  1341. 13410 GOSUB *G
  1342. 13420 GOSUB *Y
  1343. 13430 GOSUB *U
  1344. 13440 SYMBOL(250,110),"ぎゅ",7,5,%3,,,1
  1345. 13450 RETURN
  1346. 13460 '
  1347. 13470 *ぎょ
  1348. 13480 SYMBOL(250,110),"ぎょ",7,5,%0,,,1
  1349. 13490 GOSUB *G
  1350. 13500 GOSUB *Y
  1351. 13510 GOSUB *O
  1352. 13520 SYMBOL(250,110),"ぎょ",7,5,%3,,,1
  1353. 13530 RETURN
  1354. 13540 '
  1355. 13550 *じゃ
  1356. 13560 SYMBOL(250,110),"じゃ",7,5,%0,,,1
  1357. 13570 GOSUB *J
  1358. 13580 GOSUB *A
  1359. 13590 SYMBOL(250,110),"じゃ",7,5,%3,,,1
  1360. 13600 RETURN
  1361. 13610 '
  1362. 13620 *じゅ 
  1363. 13630 SYMBOL(250,110),"じゅ",7,5,%0,,,1
  1364. 13640 GOSUB *J
  1365. 13650 GOSUB *U
  1366. 13660 SYMBOL(250,110),"じゅ",7,5,%3,,,1
  1367. 13670 RETURN
  1368. 13680 '
  1369. 13690 *じょ
  1370. 13700 SYMBOL(250,110),"じょ",7,5,%0,,,1
  1371. 13710 GOSUB *J
  1372. 13720 GOSUB *O
  1373. 13730 SYMBOL(250,110),"じょ",7,5,%3,,,1
  1374. 13740 RETURN
  1375. 13750 '
  1376. 13760 *びゃ
  1377. 13770 SYMBOL(250,110),"びゃ",7,5,%0,,,1
  1378. 13780 GOSUB *B
  1379. 13790 GOSUB *Y
  1380. 13800 GOSUB *A
  1381. 13810 SYMBOL(250,110),"びゃ",7,5,%3,,,1
  1382. 13820 RETURN
  1383. 13830 '
  1384. 13840 *びゅ
  1385. 13850 SYMBOL(250,110),"びゅ",7,5,%0,,,1
  1386. 13860 GOSUB *B
  1387. 13870 GOSUB *Y
  1388. 13880 GOSUB *U
  1389. 13890 SYMBOL(250,110),"びゅ",7,5,%3,,,1
  1390. 13900 RETURN
  1391. 13910 '
  1392. 13920 *びょ
  1393. 13930 SYMBOL(250,110),"びょ",7,5,%0,,,1
  1394. 13940 GOSUB *B
  1395. 13950 GOSUB *Y
  1396. 13960 GOSUB *O
  1397. 13970 SYMBOL(250,110),"びょ",7,5,%3,,,1
  1398. 13980 RETURN
  1399. 13990 '
  1400. 14000 *ぴゃ
  1401. 14010 SYMBOL(250,110),"ぴゃ",7,5,%0,,,1
  1402. 14020 GOSUB *P
  1403. 14030 GOSUB *Y
  1404. 14040 GOSUB *A
  1405. 14050 SYMBOL(250,110),"ぴゃ",7,5,%3,,,1
  1406. 14060 RETURN 
  1407. 14070 '
  1408. 14080 *ぴゅ
  1409. 14090 SYMBOL(250,110),"ぴゅ",7,5,%0,,,1
  1410. 14100 GOSUB *P
  1411. 14110 GOSUB *Y
  1412. 14120 GOSUB *U
  1413. 14130 SYMBOL(250,110),"ぴゅ",7,5,%3,,,1
  1414. 14140 RETURN 
  1415. 14150 '
  1416. 14160 *ぴょ
  1417. 14170 SYMBOL(250,110),"ぴょ",7,5,%0,,,1
  1418. 14180 GOSUB *P
  1419. 14190 GOSUB *Y
  1420. 14200 GOSUB *O
  1421. 14210 SYMBOL(250,110),"ぴょ",7,5,%3,,,1
  1422. 14220 RETURN
  1423. 14230 '
  1424. 14240 *ふぁ 
  1425. 14250 SYMBOL(250,110),"ふぁ",7,5,%0,,,1
  1426. 14260 GOSUB *F 
  1427. 14270 GOSUB *A
  1428. 14280 SYMBOL(250,110),"ふぁ",7,5,%3,,,1
  1429. 14290 RETURN
  1430. 14300 '
  1431. 14310 *ふぇ
  1432. 14320 SYMBOL(250,110),"ふぇ",7,5,%0,,,1
  1433. 14330 GOSUB *F
  1434. 14340 GOSUB *E
  1435. 14350 SYMBOL(250,110),"ふぇ",7,5,%3,,,1
  1436. 14360 RETURN
  1437. 14370 '
  1438. 14380 *ふぉ
  1439. 14390 SYMBOL(250,110),"ふぉ",7,5,%0,,,1
  1440. 14400 GOSUB *F
  1441. 14410 GOSUB *O
  1442. 14420 SYMBOL(250,110),"ふぉ",7,5,%3,,,1
  1443. 14430 RETURN
  1444. 14440 '
  1445. 14450 '
  1446. 14460 '
  1447. 14470 *ANSWER
  1448. 14480 A$=INKEY$ :IF A$="" THEN 14480 
  1449. 14490 IF A$="Q" THEN GOSUB *AQ
  1450. 14500 IF A$="W" THEN GOSUB *AW
  1451. 14510 IF A$="E" THEN GOSUB *AE
  1452. 14520 IF A$="R" THEN GOSUB *AR
  1453. 14530 IF A$="T" THEN GOSUB *AT
  1454. 14540 IF A$="Y" THEN GOSUB *AY
  1455. 14550 IF A$="U" THEN GOSUB *AU
  1456. 14560 IF A$="I" THEN GOSUB *AI
  1457. 14570 IF A$="O" THEN GOSUB *AO
  1458. 14580 IF A$="P" THEN GOSUB *AP
  1459. 14590 IF A$="A" THEN GOSUB *AA
  1460. 14600 IF A$="S" THEN GOSUB *AS
  1461. 14610 IF A$="D" THEN GOSUB *AD
  1462. 14620 IF A$="F" THEN GOSUB *AF
  1463. 14630 IF A$="G" THEN GOSUB *AG
  1464. 14640 IF A$="H" THEN GOSUB *AH
  1465. 14650 IF A$="J" THEN GOSUB *AJ
  1466. 14660 IF A$="K" THEN GOSUB *AK
  1467. 14670 IF A$="L" THEN GOSUB *AL
  1468. 14680 IF A$=";" THEN GOSUB *Aれ
  1469. 14690 IF A$="Z" THEN GOSUB *AZ
  1470. 14700 IF A$="X" THEN GOSUB *AX
  1471. 14710 IF A$="C" THEN GOSUB *AC
  1472. 14720 IF A$="V" THEN GOSUB *AV
  1473. 14730 IF A$="B" THEN GOSUB *AB 
  1474. 14740 IF A$="N" THEN GOSUB *AN
  1475. 14750 IF A$="M" THEN GOSUB *AM
  1476. 14760 IF A$=CHR$(&H1B)THEN *メニュー
  1477. 14770 RETURN
  1478. 14780 '
  1479. 14790 *AQ
  1480. 14800 LINE (70,220)-(110,420),PSET,%4,BF
  1481. 14810 LINE (70,220)-(110,420),PSET,%1,B:LINE (71,221)-(71,419),PSET,%1,B
  1482. 14820 LINE (70,220)-(110,220),PSET,%1,B:LINE (71,221)-(109,221),PSET,%1,B
  1483. 14830 LINE (110,220)-(110,420),PSET,%7,B:LINE (109,221)-(109,419),PSET,%7,B
  1484. 14840 LINE (70,420)-(110,420),PSET,%7,B:LINE (71,419)-(109,419),PSET,%7,B
  1485. 14850 WAIT 15
  1486. 14860 LINE (70,220)-(110,420),PSET,%3,BF
  1487. 14870 LINE (70,270)-(110,420),PSET,%5,BF
  1488. 14880 LINE (70,270)-(70,420),PSET,%7,B:LINE (71,271)-(71,419),PSET,%7,B
  1489. 14890 LINE (70,270)-(110,270),PSET,%7,B:LINE (71,271)-(109,271),PSET,%7,B
  1490. 14900 LINE (110,270)-(110,420),PSET,%1,B:LINE (109,271)-(109,419),PSET,%1,B
  1491. 14910 LINE (70,420)-(110,420),PSET,%1,B:LINE (71,419)-(109,419),PSET,%1,B
  1492. 14920 RETURN
  1493. 14930 '
  1494. 14940 *W
  1495. 14950 LINE (122,222)-(158,418),PSET,%8,BF
  1496. 14960 LINE (120,220)-(160,420),PSET,%7,B:LINE (121,221)-(121,419),PSET,%7,B
  1497. 14970 LINE (120,220)-(160,220),PSET,%7,B:LINE (121,221)-(159,221),PSET,%7,B
  1498. 14980 LINE (160,220)-(160,420),PSET,%1,B:LINE (159,221)-(159,419),PSET,%1,B
  1499. 14990 LINE (120,420)-(160,420),PSET,%1,B:LINE (121,419)-(159,419),PSET,%1,B
  1500. 15000 Q$="W"
  1501. 15010 GOSUB *ANSWER
  1502. 15020 IF A$=Q$ THEN 15060
  1503. 15030 IF A$<>Q$ THEN BEEP 1
  1504. 15040 WAIT 10
  1505. 15050 BEEP :GOTO 14950
  1506. 15060 PCMPLAY TYPE%,100 :RETURN
  1507. 15070 '
  1508. 15080 *AW
  1509. 15090 LINE (122,222)-(158,418),PSET,%4,BF
  1510. 15100 LINE (120,220)-(160,420),PSET,%1,B:LINE (121,221)-(121,419),PSET,%1,B
  1511. 15110 LINE (120,220)-(160,220),PSET,%1,B:LINE (121,221)-(159,221),PSET,%1,B
  1512. 15120 LINE (160,220)-(160,420),PSET,%7,B:LINE (159,221)-(159,419),PSET,%7,B
  1513. 15130 LINE (120,420)-(160,420),PSET,%7,B:LINE (121,419)-(159,419),PSET,%7,B
  1514. 15140 WAIT 15
  1515. 15150 LINE (118,218)-(162,422),PSET,%3,BF
  1516. 15160 LINE (120,270)-(160,420),PSET,%5,BF
  1517. 15170 LINE (120,270)-(120,420),PSET,%7,B:LINE (121,271)-(121,419),PSET,%7,B
  1518. 15180 LINE (120,270)-(160,270),PSET,%7,B:LINE (121,271)-(159,271),PSET,%7,B
  1519. 15190 LINE (160,270)-(160,420),PSET,%1,B:LINE (159,271)-(159,419),PSET,%1,B
  1520. 15200 LINE (120,420)-(160,420),PSET,%1,B:LINE (121,419)-(159,419),PSET,%1,B
  1521. 15210 RETURN
  1522. 15220 '
  1523. 15230 *E
  1524. 15240 LINE (172,222)-(208,418),PSET,%8,BF
  1525. 15250 LINE (170,220)-(210,420),PSET,%7,B:LINE (171,221)-(171,419),PSET,%7,B
  1526. 15260 LINE (170,220)-(210,220),PSET,%7,B:LINE (171,221)-(209,419),PSET,%7,B
  1527. 15270 LINE (210,220)-(210,420),PSET,%1,B:LINE (209,221)-(209,419),PSET,%1,B
  1528. 15280 LINE (170,420)-(210,420),PSET,%1,B:LINE (171,419)-(209,419),PSET,%1,B
  1529. 15290 SYMBOL(175,225),"え",2,1,%0,,,1
  1530. 15300 Q$="E"
  1531. 15310 GOSUB *ANSWER
  1532. 15320 IF A$=Q$ THEN 15360
  1533. 15330 IF A$<>Q$ THEN BEEP 1
  1534. 15340 WAIT 10
  1535. 15350 BEEP :GOTO 15240 
  1536. 15360 PCMPLAY TYPE%,100 :RETURN
  1537. 15370 '
  1538. 15380 *AE
  1539. 15390 LINE (170,220)-(210,420),PSET,%4,BF
  1540. 15400 LINE (170,220)-(210,420),PSET,%1,B:LINE (171,221)-(171,419),PSET,%1,B
  1541. 15410 LINE (170,220)-(210,220),PSET,%1,B:LINE (171,221)-(209,419),PSET,%1,B
  1542. 15420 LINE (210,220)-(210,420),PSET,%7,B:LINE (209,221)-(209,419),PSET,%7,B
  1543. 15430 LINE (170,420)-(210,420),PSET,%7,B:LINE (171,419)-(209,419),PSET,%7,B
  1544. 15440 WAIT 15
  1545. 15450 LINE (168,218)-(212,422),PSET,%3,BF
  1546. 15460 LINE (170,270)-(210,420),PSET,%5,BF
  1547. 15470 LINE (170,270)-(210,420),PSET,%7,B:LINE (171,271)-(171,419),PSET,%7,B
  1548. 15480 LINE (170,270)-(210,270),PSET,%7,B:LINE (171,271)-(209,271),PSET,%7,B
  1549. 15490 LINE (210,270)-(210,420),PSET,%1,B:LINE (209,271)-(209,419),PSET,%1,B
  1550. 15500 LINE (170,420)-(210,420),PSET,%1,B:LINE (171,419)-(209,419),PSET,%1,B
  1551. 15510 RETURN
  1552. 15520 '
  1553. 15530 *R
  1554. 15540 LINE (222,222)-(258,418),PSET,%8,BF
  1555. 15550 LINE (220,220)-(260,420),PSET,%7,B:LINE (221,221)-(221,419),PSET,%7,B
  1556. 15560 LINE (220,220)-(260,220),PSET,%7,B:LINE (221,221)-(259,221),PSET,%7,B
  1557. 15570 LINE (260,220)-(260,420),PSET,%1,B:LINE (259,221)-(259,419),PSET,%1,B
  1558. 15580 LINE (220,420)-(260,420),PSET,%1,B:LINE (221,419)-(259,419),PSET,%1,B
  1559. 15590 Q$="R"
  1560. 15600 GOSUB *ANSWER
  1561. 15610 IF A$=Q$ THEN 15650
  1562. 15620 IF A$<>Q$ THEN BEEP 1
  1563. 15630 WAIT 10
  1564. 15640 BEEP :GOTO 15540
  1565. 15650 PCMPLAY TYPE%,100 :RETURN
  1566. 15660 '
  1567. 15670 *AR
  1568. 15680 LINE (220,220)-(260,420),PSET,%4,BF
  1569. 15690 LINE (220,220)-(260,420),PSET,%1,B:LINE (221,221)-(221,419),PSET,%1,B
  1570. 15700 LINE (220,220)-(260,220),PSET,%1,B:LINE (221,221)-(259,221),PSET,%1,B
  1571. 15710 LINE (260,220)-(260,420),PSET,%7,B:LINE (259,221)-(259,419),PSET,%7,B
  1572. 15720 LINE (220,420)-(260,420),PSET,%7,B:LINE (221,419)-(259,419),PSET,%7,B
  1573. 15730 WAIT 15
  1574. 15740 LINE (218,218)-(262,422),PSET,%3,BF
  1575. 15750 LINE (220,270)-(260,420),PSET,%5,BF
  1576. 15760 LINE (220,270)-(220,420),PSET,%7,B:LINE (221,271)-(221,419),PSET,%7,B
  1577. 15770 LINE (220,270)-(260,270),PSET,%7,B:LINE (221,271)-(259,271),PSET,%7,B
  1578. 15780 LINE (260,270)-(260,420),PSET,%1,B:LINE (259,271)-(259,419),PSET,%1,B
  1579. 15790 LINE (220,420)-(260,420),PSET,%1,B:LINE (221,419)-(259,419),PSET,%1,B
  1580. 15800 RETURN
  1581. 15810 '
  1582. 15820 *T
  1583. 15830 LINE (220,270)-(260,420),PSET,%3,BF
  1584. 15840 CONNECT (272,222)-(308,222)-(258,418)-(222,418)-(272,222),%8,PSET,F
  1585. 15850 CONNECT (221,419)-(271,221)-(309,221),%7,PSET,N
  1586. 15860 CONNECT (220,420)-(270,220)-(310,220),%7,PSET,N
  1587. 15870 CONNECT (220,420)-(260,420)-(310,220),%1,PSET,N
  1588. 15880 CONNECT (221,419)-(259,419)-(309,221),%1,PSET,N
  1589. 15890 Q$="T" 
  1590. 15900 GOSUB *ANSWER
  1591. 15910 IF A$=Q$ THEN 15950
  1592. 15920 IF A$<>Q$ THEN BEEP 1
  1593. 15930 WAIT 10
  1594. 15940 BEEP :GOTO 15830
  1595. 15950 PCMPLAY TYPE%,100 :RETURN
  1596. 15960 '
  1597. 15970 *AT
  1598. 15980 CONNECT (270,220)-(310,220)-(260,420)-(220,420),%4,PSET,F
  1599. 15990 CONNECT (220,420)-(270,220)-(310,220),%1,PSET,N
  1600. 16000 CONNECT (221,419)-(271,221)-(309,221),%1,PSET,N
  1601. 16010 CONNECT (310,220)-(260,420)-(220,420),%7,PSET,N
  1602. 16020 CONNECT (309,221)-(259,419)-(221,419),%7,PSET,N
  1603. 16030 WAIT 15
  1604. 16040 CONNECT (268,218)-(312,218)-(262,422)-(218,422)-(268,218),%3,PSET,F
  1605. 16050 LINE (220,270)-(260,420),PSET,%5,BF
  1606. 16060 LINE (220,270)-(220,420),PSET,%7,B:LINE (221,271)-(221,419),PSET,%7,B
  1607. 16070 LINE (220,270)-(260,270),PSET,%7,B:LINE (221,271)-(259,271),PSET,%7,B
  1608. 16080 LINE (260,270)-(260,420),PSET,%1,B:LINE (259,271)-(259,419),PSET,%1,B
  1609. 16090 LINE (220,420)-(260,420),PSET,%1,B:LINE (221,419)-(259,419),PSET,%1,B
  1610. 16100 RETURN
  1611. 16110 '
  1612. 16120 *Y
  1613. 16130 LINE (370,270)-(410,420),PSET,%3,BF
  1614. 16140 CONNECT (320,220)-(360,220)-(410,420)-(370,420)-(320,220),%8,PSET,F
  1615. 16150 CONNECT (370,420)-(320,220)-(360,220),%7,PSET,N
  1616. 16160 CONNECT (371,419)-(321,221)-(359,221),%7,PSET,N
  1617. 16170 CONNECT (370,420)-(410,420)-(360,220),%1,PSET,N
  1618. 16180 CONNECT (369,419)-(409,419)-(359,221),%1,PSET,N
  1619. 16190 Q$="Y"
  1620. 16200 GOSUB *ANSWER
  1621. 16210 IF A$=Q$ THEN 16250
  1622. 16220 IF A$<>Q$ THEN BEEP 1
  1623. 16230 WAIT 10
  1624. 16240 BEEP :GOTO 16130
  1625. 16250 PCMPLAY TYPE%,100 :RETURN
  1626. 16260 '
  1627. 16270 *AY
  1628. 16280 CONNECT (320,220)-(360,220)-(410,420)-(370,420)-(320,220),%4,PSET,F
  1629. 16290 CONNECT (370,420)-(320,220)-(360,220),%1,PSET,N
  1630. 16300 CONNECT (371,419)-(321,221)-(359,221),%1,PSET,N
  1631. 16310 CONNECT (370,420)-(410,420)-(360,220),%7,PSET,N
  1632. 16320 CONNECT (369,419)-(409,419)-(359,221),%7,PSET,N
  1633. 16330 WAIT 15
  1634. 16340 CONNECT (320,220)-(360,220)-(410,420)-(370,420),%3,PSET,F
  1635. 16350 LINE (370,270)-(410,420),PSET,%5,BF
  1636. 16360 CONNECT (370,420)-(370,270)-(410,270),%7,PSET,N
  1637. 16370 CONNECT (371,419)-(371,271)-(409,271),%7,PSET,N
  1638. 16380 CONNECT (370,420)-(410,420)-(410,270),%1,PSET,N
  1639. 16390 CONNECT (371,419)-(409,419)-(409,271),%1,PSET,N
  1640. 16400 RETURN
  1641. 16410 ' 
  1642. 16420 *U
  1643. 16430 LINE (372,222)-(408,418),PSET,%8,BF
  1644. 16440 CONNECT (370,420)-(370,220)-(410,220),%7,PSET,N
  1645. 16450 CONNECT (371,419)-(371,221)-(409,221),%7,PSET,N
  1646. 16460 CONNECT (370,420)-(410,420)-(410,220),%1,PSET,N
  1647. 16470 CONNECT (371,419)-(409,419)-(409,221),%1,PSET,N
  1648. 16480 SYMBOL(375,225),"う",2,1,%0,,,1
  1649. 16490 Q$="U"
  1650. 16500 GOSUB *ANSWER
  1651. 16510 IF A$=Q$ THEN 16550
  1652. 16520 IF A$<>Q$ THEN BEEP 1
  1653. 16530 WAIT 10
  1654. 16540 BEEP :GOTO 16430
  1655. 16550 PCMPLAY TYPE%,100 :RETURN
  1656. 16560 ' 
  1657. 16570 *AU
  1658. 16580 LINE (372,222)-(408,418),PSET,%4,BF
  1659. 16590 CONNECT (370,420)-(370,220)-(410,220),%1,PSET,N
  1660. 16600 CONNECT (371,419)-(371,221)-(409,221),%1,PSET,N
  1661. 16610 CONNECT (370,420)-(410,420)-(410,220),%7,PSET,N
  1662. 16620 CONNECT (371,419)-(409,419)-(409,221),%7,PSET,N
  1663. 16630 WAIT 15
  1664. 16640 LINE (370,220)-(410,420),PSET,%3,BF
  1665. 16650 LINE (370,270)-(410,420),PSET,%5,BF
  1666. 16660 CONNECT (370,420)-(370,270)-(410,270),%7,PSET,N
  1667. 16670 CONNECT (371,419)-(371,271)-(409,271),%7,PSET,N
  1668. 16680 CONNECT (370,420)-(410,420)-(410,270),%1,PSET,N
  1669. 16690 CONNECT (371,419)-(409,419)-(409,271),%1,PSET,N
  1670. 16700 RETURN
  1671. 16710 '
  1672. 16720 *I
  1673. 16730 LINE (420,220)-(460,420),PSET,%8,BF
  1674. 16740 CONNECT (420,420)-(420,220)-(460,220),%7,PSET,N
  1675. 16750 CONNECT (421,419)-(421,221)-(459,221),%7,PSET,N
  1676. 16760 CONNECT (420,420)-(460,420)-(460,220),%1,PSET,N
  1677. 16770 CONNECT (421,419)-(459,419)-(459,221),%1,PSET,N
  1678. 16780 SYMBOL(425,225),"い",2,1,%0,,,1
  1679. 16790 Q$="I"
  1680. 16800 GOSUB *ANSWER
  1681. 16810 IF A$=Q$ THEN 16850
  1682. 16820 IF A$<>Q$ THEN BEEP 1
  1683. 16830 WAIT 10
  1684. 16840 BEEP :GOTO 16730
  1685. 16850 PCMPLAY TYPE%,100 :RETURN
  1686. 16860 '
  1687. 16870 *AI
  1688. 16880 LINE (420,220)-(460,420),PSET,%4,BF
  1689. 16890 CONNECT (420,420)-(420,220)-(460,220),%1,PSET,N
  1690. 16900 CONNECT (421,419)-(421,221)-(459,221),%1,PSET,N
  1691. 16910 CONNECT (420,420)-(460,420)-(460,220),%7,PSET,N
  1692. 16920 CONNECT (421,419)-(459,419)-(459,221),%7,PSET,N
  1693. 16930 WAIT 15
  1694. 16940 LINE (420,220)-(460,420),PSET,%3,BF
  1695. 16950 LINE (420,270)-(460,420),PSET,%5,BF
  1696. 16960 CONNECT (420,420)-(420,270)-(460,270),%7,PSET,N
  1697. 16970 CONNECT (421,419)-(421,271)-(459,271),%7,PSET,N
  1698. 16980 CONNECT (420,420)-(460,420)-(460,270),%1,PSET,N
  1699. 16990 CONNECT (421,419)-(459,419)-(459,271),%1,PSET,N
  1700. 17000 RETURN
  1701. 17010 '
  1702. 17020 *O
  1703. 17030 LINE (470,220)-(510,420),PSET,%8,BF
  1704. 17040 CONNECT (470,420)-(470,220)-(510,220),%7,PSET,N
  1705. 17050 CONNECT (471,419)-(471,221)-(509,221),%7,PSET,N
  1706. 17060 CONNECT (470,420)-(510,420)-(510,220),%1,PSET,N
  1707. 17070 CONNECT (471,419)-(509,419)-(509,221),%1,PSET,N
  1708. 17080 SYMBOL(475,225),"お",2,1,%0,,,1
  1709. 17090 Q$="O" 
  1710. 17100 GOSUB *ANSWER
  1711. 17110 IF A$=Q$ THEN 17150
  1712. 17120 IF A$<>Q$ THEN BEEP 1
  1713. 17130 WAIT 10
  1714. 17140 BEEP :GOTO 17030
  1715. 17150 PCMPLAY TYPE%,100 :RETURN
  1716. 17160 '
  1717. 17170 *AO
  1718. 17180 LINE (470,220)-(510,420),PSET,%4,BF
  1719. 17190 CONNECT (470,420)-(470,220)-(510,220),%1,PSET,N
  1720. 17200 CONNECT (471,419)-(471,221)-(509,221),%1,PSET,N
  1721. 17210 CONNECT (470,420)-(510,420)-(510,220),%7,PSET,N
  1722. 17220 CONNECT (471,419)-(509,419)-(509,221),%7,PSET,N
  1723. 17230 WAIT 15
  1724. 17240 LINE (470,220)-(510,420),PSET,%3,BF
  1725. 17250 LINE (470,270)-(510,420),PSET,%5,BF
  1726. 17260 CONNECT (470,420)-(470,270)-(510,270),%7,PSET,N
  1727. 17270 CONNECT (471,419)-(471,271)-(509,271),%7,PSET,N
  1728. 17280 CONNECT (470,420)-(510,420)-(510,270),%1,PSET,N
  1729. 17290 CONNECT (471,419)-(509,419)-(509,271),%1,PSET,N
  1730. 17300 RETURN
  1731. 17310 '
  1732. 17320 *P
  1733. 17330 LINE (520,220)-(560,420),PSET,%8,BF
  1734. 17340 CONNECT (520,420)-(520,220)-(560,220),%7,PSET,N
  1735. 17350 CONNECT (521,419)-(521,221)-(559,221),%7,PSET,N
  1736. 17360 CONNECT (520,420)-(560,420)-(560,220),%1,PSET,N
  1737. 17370 CONNECT (521,419)-(559,419)-(559,221),%1,PSET,N
  1738. 17380 Q$="P"
  1739. 17390 GOSUB *ANSWER 
  1740. 17400 IF A$=Q$ THEN 17440
  1741. 17410 IF A$<>Q$ THEN BEEP 1
  1742. 17420 WAIT 10
  1743. 17430 BEEP :GOTO 17330
  1744. 17440 PCMPLAY TYPE%,100 :RETURN
  1745. 17450 '
  1746. 17460 *AP
  1747. 17470 LINE (520,220)-(560,420),PSET,%4,BF
  1748. 17480 CONNECT (520,420)-(520,220)-(560,220),%1,PSET,N
  1749. 17490 CONNECT (521,419)-(521,221)-(559,221),%1,PSET,N
  1750. 17500 CONNECT (520,420)-(560,420)-(560,220),%7,PSET,N
  1751. 17510 CONNECT (521,419)-(559,419)-(559,221),%7,PSET,N
  1752. 17520 WAIT 15
  1753. 17530 LINE (520,220)-(560,420),PSET,%3,BF
  1754. 17540 LINE (520,270)-(560,420),PSET,%5,BF
  1755. 17550 CONNECT (520,420)-(520,270)-(560,270),%7,PSET,N
  1756. 17560 CONNECT (521,419)-(521,271)-(559,271),%7,PSET,N
  1757. 17570 CONNECT (520,420)-(560,420)-(560,270),%1,PSET,N
  1758. 17580 CONNECT (521,419)-(559,419)-(559,271),%1,PSET,N
  1759. 17590 RETURN
  1760. 17600 '
  1761. 17610 *A
  1762. 17620 LINE (72,272)-(108,418),PSET,%8,BF
  1763. 17630 SYMBOL(75,275),"あ",2,1,%0,,,1
  1764. 17640 Q$="A"
  1765. 17650 GOSUB *ANSWER 
  1766. 17660 IF A$=Q$ THEN 17700
  1767. 17670 IF A$<>Q$ THEN BEEP 1
  1768. 17680 WAIT 10
  1769. 17690 BEEP :GOTO 17620
  1770. 17700 PCMPLAY TYPE%,100 :RETURN
  1771. 17710 '
  1772. 17720 *AA
  1773. 17730 LINE (70,270)-(110,420),PSET,%4,BF
  1774. 17740 LINE (70,270)-(110,420),PSET,%1,B:LINE (71,271)-(71,419),PSET,%1,B
  1775. 17750 LINE (70,270)-(110,270),PSET,%1,B:LINE (71,271)-(109,271),PSET,%1,B
  1776. 17760 LINE (110,270)-(110,420),PSET,%7,B:LINE (109,271)-(109,419),PSET,%7,B
  1777. 17770 LINE (70,420)-(110,420),PSET,%7,B:LINE (71,419)-(109,419),PSET,%7,B
  1778. 17780 WAIT 15
  1779. 17790 LINE (70,270)-(110,420),PSET,%5,BF
  1780. 17800 LINE (70,270)-(70,420),PSET,%7,B:LINE (71,271)-(71,419),PSET,%7,B
  1781. 17810 LINE (70,270)-(110,270),PSET,%7,B:LINE (71,271)-(109,271),PSET,%7,B
  1782. 17820 LINE (110,270)-(110,420),PSET,%1,B:LINE (109,271)-(109,419),PSET,%1,B
  1783. 17830 LINE (70,420)-(110,420),PSET,%1,B:LINE (71,419)-(109,419),PSET,%1,B
  1784. 17840 RETURN
  1785. 17850 '
  1786. 17860 *S
  1787. 17870 LINE (122,272)-(158,418),PSET,%8,BF
  1788. 17880 Q$="S"
  1789. 17890 GOSUB *ANSWER 
  1790. 17900 IF A$=Q$ THEN 17940
  1791. 17910 IF A$<>Q$ THEN BEEP 1
  1792. 17920 WAIT 10
  1793. 17930 BEEP :GOTO 17870
  1794. 17940 PCMPLAY TYPE%,100 :RETURN
  1795. 17950 '
  1796. 17960 *AS 
  1797. 17970 LINE (122,272)-(158,418),PSET,%4,BF
  1798. 17980 CONNECT (120,420)-(120,270)-(160,270),%1,PSET,N
  1799. 17990 CONNECT (121,419)-(121,271)-(159,271),%1,PSET,N
  1800. 18000 CONNECT (120,420)-(160,420)-(160,270),%7,PSET,N
  1801. 18010 CONNECT (121,419)-(159,419)-(159,271),%7,PSET,N
  1802. 18020 WAIT 15
  1803. 18030 LINE (120,270)-(160,420),PSET,%5,BF
  1804. 18040 CONNECT (120,420)-(120,270)-(160,270),%7,PSET,N
  1805. 18050 CONNECT (121,419)-(121,271)-(159,271),%7,PSET,N
  1806. 18060 CONNECT (120,420)-(160,420)-(160,270),%1,PSET,N
  1807. 18070 CONNECT (121,419)-(159,419)-(159,271),%1,PSET,N
  1808. 18080 RETURN
  1809. 18090 '
  1810. 18100 *D
  1811. 18110 LINE (172,272)-(208,418),PSET,%8,BF
  1812. 18120 Q$="D"
  1813. 18130 GOSUB *ANSWER 
  1814. 18140 IF A$=Q$ THEN 18180
  1815. 18150 IF A$<>Q$ THEN BEEP 1
  1816. 18160 WAIT 10
  1817. 18170 BEEP :GOTO 18110
  1818. 18180 PCMPLAY TYPE%,100 :RETURN
  1819. 18190 '
  1820. 18200 *AD
  1821. 18210 LINE (170,270)-(210,420),PSET,%4,BF
  1822. 18220 CONNECT (170,420)-(170,270)-(210,270),%1,PSET,N
  1823. 18230 CONNECT (171,419)-(171,271)-(209,271),%1,PSET,N
  1824. 18240 CONNECT (170,420)-(210,420)-(210,270),%7,PSET,N
  1825. 18250 CONNECT (171,419)-(209,419)-(209,271),%7,PSET,N
  1826. 18260 WAIT 15
  1827. 18270 LINE (170,270)-(210,420),PSET,%5,BF
  1828. 18280 CONNECT (170,420)-(170,270)-(210,270),%7,PSET,N
  1829. 18290 CONNECT (171,419)-(171,271)-(209,271),%7,PSET,N
  1830. 18300 CONNECT (170,420)-(210,420)-(210,270),%1,PSET,N
  1831. 18310 CONNECT (171,419)-(209,419)-(209,271),%1,PSET,N
  1832. 18320 RETURN
  1833. 18330 '
  1834. 18340 *F
  1835. 18350 LINE (222,272)-(258,418),PSET,%8,BF
  1836. 18360 CONNECT (220,420)-(220,270)-(260,270),%7,PSET,N
  1837. 18370 CONNECT (221,419)-(221,271)-(259,271),%7,PSET,N
  1838. 18380 CONNECT (220,420)-(260,420)-(260,270),%1,PSET,N
  1839. 18390 CONNECT (221,419)-(259,419)-(259,271),%1,PSET,N
  1840. 18400 Q$="F"
  1841. 18410 GOSUB *ANSWER 
  1842. 18420 IF A$=Q$ THEN 18460
  1843. 18430 IF A$<>Q$ THEN BEEP 1
  1844. 18440 WAIT 10
  1845. 18450 BEEP :GOTO 18350
  1846. 18460 PCMPLAY TYPE%,100 :RETURN
  1847. 18470 '
  1848. 18480 *AF
  1849. 18490 LINE (220,270)-(260,420),PSET,%4,BF
  1850. 18500 CONNECT (220,420)-(220,270)-(260,270),%1,PSET,N
  1851. 18510 CONNECT (221,419)-(221,271)-(259,271),%1,PSET,N
  1852. 18520 CONNECT (220,420)-(260,420)-(260,270),%7,PSET,N
  1853. 18530 CONNECT (221,419)-(259,419)-(259,271),%7,PSET,N
  1854. 18540 WAIT 15
  1855. 18550 LINE (220,270)-(260,420),PSET,%5,BF
  1856. 18560 CONNECT (220,420)-(220,270)-(260,270),%7,PSET,N
  1857. 18570 CONNECT (221,419)-(221,271)-(259,271),%7,PSET,N
  1858. 18580 CONNECT (220,420)-(260,420)-(260,270),%1,PSET,N
  1859. 18590 CONNECT (221,419)-(259,419)-(259,271),%1,PSET,N
  1860. 18600 RETURN
  1861. 18610 '
  1862. 18620 *G
  1863. 18630 LINE (220,270)-(260,420),PSET,%3,BF
  1864. 18640 CONNECT (270,270)-(310,270)-(260,420)-(220,420)-(270,270),%8,PSET,F
  1865. 18650 CONNECT (220,420)-(270,270)-(310,270),%7,PSET,N
  1866. 18660 CONNECT (221,419)-(271,271)-(309,271),%7,PSET,N
  1867. 18670 CONNECT (220,420)-(260,420)-(310,270),%1,PSET,N
  1868. 18680 CONNECT (221,419)-(259,419)-(309,271),%1,PSET,N
  1869. 18690 Q$="G"
  1870. 18700 GOSUB *ANSWER 
  1871. 18710 IF A$=Q$ THEN 18750
  1872. 18720 IF A$<>Q$ THEN BEEP 1
  1873. 18730 WAIT 10
  1874. 18740 BEEP :GOTO 18630
  1875. 18750 PCMPLAY TYPE%,100 :RETURN
  1876. 18760 '
  1877. 18770 *AG
  1878. 18780 CONNECT (270,270)-(310,270)-(260,420)-(220,420)-(270,270),%4,PSET,F
  1879. 18790 CONNECT (220,420)-(270,270)-(310,270),%1,PSET,N
  1880. 18800 CONNECT (221,419)-(271,271)-(309,271),%1,PSET,N
  1881. 18810 CONNECT (220,420)-(260,420)-(310,270),%7,PSET,N
  1882. 18820 CONNECT (221,419)-(259,419)-(309,271),%7,PSET,N
  1883. 18830 WAIT 15
  1884. 18840 CONNECT (270,270)-(310,270)-(260,420)-(220,420),%3,PSET,F
  1885. 18850 LINE (220,270)-(260,420),PSET,%5,BF
  1886. 18860 CONNECT (220,420)-(220,270)-(260,270),%7,PSET,N
  1887. 18870 CONNECT (221,419)-(221,271)-(259,271),%7,PSET,N
  1888. 18880 CONNECT (220,420)-(260,420)-(260,270),%1,PSET,N
  1889. 18890 CONNECT (221,419)-(259,419)-(259,271),%1,PSET,N
  1890. 18900 RETURN
  1891. 18910 '
  1892. 18920 *H
  1893. 18930 LINE (370,270)-(410,420),PSET,%3,BF
  1894. 18940 CONNECT (320,270)-(360,270)-(410,420)-(370,420)-(320,270),%8,PSET,F
  1895. 18950 CONNECT (370,420)-(320,270)-(360,270),%7,PSET,N
  1896. 18960 CONNECT (371,419)-(321,271)-(359,271),%7,PSET,N
  1897. 18970 CONNECT (370,420)-(410,420)-(360,270),%1,PSET,N
  1898. 18980 CONNECT (371,419)-(409,419)-(359,271),%1,PSET,N
  1899. 18990 Q$="H"
  1900. 19000 GOSUB *ANSWER 
  1901. 19010 IF A$=Q$ THEN 19050
  1902. 19020 IF A$<>Q$ THEN BEEP 1
  1903. 19030 WAIT 10
  1904. 19040 BEEP :GOTO 18930
  1905. 19050 PCMPLAY TYPE%,100 :RETURN
  1906. 19060 '
  1907. 19070 *AH
  1908. 19080 CONNECT (320,270)-(360,270)-(410,420)-(370,420)-(320,270),%4,PSET,F
  1909. 19090 CONNECT (370,420)-(320,270)-(360,270),%1,PSET,N
  1910. 19100 CONNECT (371,419)-(321,271)-(359,271),%1,PSET,N
  1911. 19110 CONNECT (370,420)-(410,420)-(360,270),%7,PSET,N
  1912. 19120 CONNECT (371,419)-(409,419)-(359,271),%7,PSET,N
  1913. 19130 WAIT 15
  1914. 19140 CONNECT (320,270)-(360,270)-(410,420)-(370,420),%3,PSET,F
  1915. 19150 LINE (370,270)-(410,420),PSET,%5,BF
  1916. 19160 CONNECT (370,420)-(370,270)-(410,270),%7,PSET,N
  1917. 19170 CONNECT (371,419)-(371,271)-(409,271),%7,PSET,N
  1918. 19180 CONNECT (370,420)-(410,420)-(410,270),%1,PSET,N
  1919. 19190 CONNECT (371,419)-(409,419)-(409,271),%1,PSET,N
  1920. 19200 RETURN
  1921. 19210 '
  1922. 19220 *J
  1923. 19230 LINE (370,270)-(410,420),PSET,%8,BF
  1924. 19240 CONNECT (370,420)-(370,270)-(410,270),%7,PSET,N
  1925. 19250 CONNECT (371,419)-(371,271)-(409,271),%7,PSET,N
  1926. 19260 CONNECT (370,420)-(410,420)-(410,270),%1,PSET,N
  1927. 19270 CONNECT (371,419)-(409,419)-(409,271),%1,PSET,N
  1928. 19280 Q$="J"
  1929. 19290 GOSUB *ANSWER
  1930. 19300 IF A$=Q$ THEN 19340
  1931. 19310 IF A$<>Q$ THEN BEEP 1
  1932. 19320 WAIT 10
  1933. 19330 BEEP :GOTO 19230
  1934. 19340 PCMPLAY TYPE%,100 :RETURN
  1935. 19350 '
  1936. 19360 *AJ
  1937. 19370 LINE (370,270)-(410,420),PSET,%4,BF
  1938. 19380 CONNECT (370,420)-(370,270)-(410,270),%1,PSET,N
  1939. 19390 CONNECT (371,419)-(371,271)-(409,271),%1,PSET,N
  1940. 19400 CONNECT (370,420)-(410,420)-(410,270),%7,PSET,N
  1941. 19410 CONNECT (371,419)-(409,419)-(409,271),%7,PSET,N
  1942. 19420 WAIT 15
  1943. 19430 LINE (370,270)-(410,420),PSET,%5,BF
  1944. 19440 CONNECT (370,420)-(370,270)-(410,270),%7,PSET,N
  1945. 19450 CONNECT (371,419)-(371,271)-(409,271),%7,PSET,N
  1946. 19460 CONNECT (370,420)-(410,420)-(410,270),%1,PSET,N
  1947. 19470 CONNECT (371,419)-(409,419)-(409,271),%1,PSET,N
  1948. 19480 RETURN
  1949. 19490 '
  1950. 19500 *K 
  1951. 19510 LINE (420,270)-(460,420),PSET,%8,BF
  1952. 19520 CONNECT (420,420)-(420,270)-(460,270),%7,PSET,N
  1953. 19530 CONNECT (421,419)-(421,271)-(459,271),%7,PSET,N
  1954. 19540 CONNECT (420,420)-(460,420)-(460,270),%1,PSET,N
  1955. 19550 CONNECT (421,419)-(459,419)-(459,271),%1,PSET,N
  1956. 19560 Q$="K"
  1957. 19570 GOSUB *ANSWER
  1958. 19580 IF A$=Q$ THEN 19620
  1959. 19590 IF A$<>Q$ THEN BEEP 1
  1960. 19600 WAIT 10
  1961. 19610 BEEP :GOTO 19510
  1962. 19620 PCMPLAY TYPE%,100 :RETURN
  1963. 19630 '
  1964. 19640 *AK
  1965. 19650 LINE (420,270)-(460,420),PSET,%4,BF
  1966. 19660 CONNECT (420,420)-(420,270)-(460,270),%1,PSET,N
  1967. 19670 CONNECT (421,419)-(421,271)-(459,271),%1,PSET,N
  1968. 19680 CONNECT (420,420)-(460,420)-(460,270),%7,PSET,N
  1969. 19690 CONNECT (421,419)-(459,419)-(459,271),%7,PSET,N
  1970. 19700 WAIT 15
  1971. 19710 LINE (420,270)-(460,420),PSET,%5,BF
  1972. 19720 CONNECT (420,420)-(420,270)-(460,270),%7,PSET,N
  1973. 19730 CONNECT (421,419)-(421,271)-(459,271),%7,PSET,N
  1974. 19740 CONNECT (420,420)-(460,420)-(460,270),%1,PSET,N
  1975. 19750 CONNECT (421,419)-(459,419)-(459,271),%1,PSET,N
  1976. 19760 RETURN
  1977. 19770 '
  1978. 19780 *AL
  1979. 19790 LINE (470,270)-(510,420),PSET,%4,BF
  1980. 19800 CONNECT (470,420)-(470,270)-(510,270),%1,PSET,N
  1981. 19810 CONNECT (471,419)-(471,271)-(509,271),%1,PSET,N
  1982. 19820 CONNECT (470,420)-(510,420)-(510,270),%7,PSET,N
  1983. 19830 CONNECT (471,419)-(509,419)-(509,271),%7,PSET,N
  1984. 19840 WAIT 15
  1985. 19850 LINE (470,270)-(510,420),PSET,%5,BF
  1986. 19860 CONNECT (470,420)-(470,270)-(510,270),%7,PSET,N
  1987. 19870 CONNECT (471,419)-(471,271)-(509,271),%7,PSET,N
  1988. 19880 CONNECT (470,420)-(510,420)-(510,270),%1,PSET,N
  1989. 19890 CONNECT (471,419)-(509,419)-(509,271),%1,PSET,N
  1990. 19900 RETURN
  1991. 19910 '
  1992. 19920 *Aれ
  1993. 19930 LINE (520,270)-(560,420),PSET,%4,BF
  1994. 19940 CONNECT (520,420)-(520,270)-(560,270),%1,PSET,N
  1995. 19950 CONNECT (521,419)-(521,271)-(559,271),%1,PSET,N
  1996. 19960 CONNECT (520,420)-(560,420)-(560,270),%7,PSET,N
  1997. 19970 CONNECT (521,419)-(559,419)-(559,271),%7,PSET,N
  1998. 19980 WAIT 15
  1999. 19990 LINE (520,270)-(560,420),PSET,%5,BF
  2000. 20000 CONNECT (520,420)-(520,270)-(560,270),%7,PSET,N
  2001. 20010 CONNECT (521,419)-(521,271)-(559,271),%7,PSET,N
  2002. 20020 CONNECT (520,420)-(560,420)-(560,270),%1,PSET,N
  2003. 20030 CONNECT (521,419)-(559,419)-(559,271),%1,PSET,N
  2004. 20040 RETURN
  2005. 20050 '
  2006. 20060 *Z
  2007. 20070 LINE (70,270)-(110,420),PSET,%3,BF
  2008. 20080 LINE (70,320)-(110,420),PSET,%8,BF
  2009. 20090 CONNECT (70,420)-(70,320)-(110,320),%7,PSET,N
  2010. 20100 CONNECT (71,419)-(71,321)-(109,321),%7,PSET,N
  2011. 20110 CONNECT (70,420)-(110,420)-(110,320),%1,PSET,N
  2012. 20120 CONNECT (71,419)-(109,419)-(109,321),%1,PSET,N
  2013. 20130 Q$="Z"
  2014. 20140 GOSUB *ANSWER
  2015. 20150 IF A$=Q$ THEN 20190
  2016. 20160 IF A$<>Q$ THEN BEEP 1
  2017. 20170 WAIT 10
  2018. 20180 BEEP :GOTO 20070
  2019. 20190 PCMPLAY TYPE%,100 :RETURN
  2020. 20200 '
  2021. 20210 *AZ
  2022. 20220 LINE (70,270)-(110,420),PSET,%3,BF
  2023. 20230 LINE (70,320)-(110,420),PSET,%4,BF
  2024. 20240 CONNECT (70,420)-(70,320)-(110,320),%1,PSET,N
  2025. 20250 CONNECT (71,419)-(71,321)-(109,321),%1,PSET,N
  2026. 20260 CONNECT (70,420)-(110,420)-(110,320),%7,PSET,N
  2027. 20270 CONNECT (71,419)-(109,419)-(109,321),%7,PSET,N
  2028. 20280 WAIT 15
  2029. 20290 LINE (70,270)-(110,420),PSET,%5,BF
  2030. 20300 CONNECT (70,420)-(70,270)-(110,270),%7,PSET,N
  2031. 20310 CONNECT (71,419)-(71,271)-(109,271),%7,PSET,N
  2032. 20320 CONNECT (70,420)-(110,420)-(110,270),%1,PSET,N
  2033. 20330 CONNECT (71,419)-(109,419)-(109,271),%1,PSET,N
  2034. 20340 RETURN
  2035. 20350 '
  2036. 20360 *X
  2037. 20370 LINE (120,270)-(160,420),PSET,%3,BF
  2038. 20380 LINE (120,320)-(160,420),PSET,%8,BF
  2039. 20390 CONNECT (120,420)-(120,320)-(160,320),%7,PSET,N
  2040. 20400 CONNECT (121,419)-(121,321)-(159,321),%7,PSET,N
  2041. 20410 CONNECT (120,420)-(160,420)-(160,320),%1,PSET,N
  2042. 20420 CONNECT (121,419)-(159,419)-(159,321),%1,PSET,N
  2043. 20430 Q$="X"
  2044. 20440 GOSUB *ANSWER
  2045. 20450 IF A$=Q$ THEN 20490
  2046. 20460 IF A$<>Q$ THEN BEEP 1
  2047. 20470 WAIT 10
  2048. 20480 BEEP :GOTO 20370
  2049. 20490 PCMPLAY TYPE%,100 :RETURN
  2050. 20500 '
  2051. 20510 *AX
  2052. 20520 LINE (120,270)-(160,420),PSET,%3,BF
  2053. 20530 LINE (120,320)-(160,420),PSET,%4,BF
  2054. 20540 CONNECT (120,420)-(120,320)-(160,320),%1,PSET,N
  2055. 20550 CONNECT (121,419)-(121,321)-(159,321),%1,PSET,N
  2056. 20560 CONNECT (120,420)-(160,420)-(160,320),%7,PSET,N
  2057. 20570 CONNECT (121,419)-(159,419)-(159,321),%7,PSET,N
  2058. 20580 WAIT 15
  2059. 20590 LINE (120,270)-(160,420),PSET,%5,BF
  2060. 20600 CONNECT (120,420)-(120,270)-(160,270),%7,PSET,N
  2061. 20610 CONNECT (121,419)-(121,271)-(159,271),%7,PSET,N
  2062. 20620 CONNECT (120,420)-(160,420)-(160,270),%1,PSET,N
  2063. 20630 CONNECT (121,419)-(159,419)-(159,271),%1,PSET,N
  2064. 20640 RETURN
  2065. 20650 '
  2066. 20660 *AC
  2067. 20670 LINE (170,270)-(210,420),PSET,%3,BF
  2068. 20680 LINE (170,320)-(210,420),PSET,%4,BF
  2069. 20690 CONNECT (170,420)-(170,320)-(210,320),%1,PSET,N
  2070. 20700 CONNECT (171,419)-(171,321)-(209,321),%1,PSET,N
  2071. 20710 CONNECT (170,420)-(210,420)-(210,320),%7,PSET,N
  2072. 20720 CONNECT (171,419)-(209,419)-(209,321),%7,PSET,N
  2073. 20730 WAIT 15
  2074. 20740 LINE (170,270)-(210,420),PSET,%5,BF
  2075. 20750 CONNECT (170,420)-(170,270)-(210,270),%7,PSET,N
  2076. 20760 CONNECT (171,419)-(171,271)-(209,271),%7,PSET,N
  2077. 20770 CONNECT (170,420)-(210,420)-(210,270),%1,PSET,N
  2078. 20780 CONNECT (171,419)-(209,419)-(209,271),%1,PSET,N
  2079. 20790 RETURN
  2080. 20800 '
  2081. 20810 *AV
  2082. 20820 LINE (220,270)-(260,420),PSET,%3,BF
  2083. 20830 LINE (220,320)-(260,420),PSET,%4,BF
  2084. 20840 CONNECT (220,420)-(220,320)-(260,320),%1,PSET,N
  2085. 20850 CONNECT (221,419)-(221,321)-(259,321),%1,PSET,N
  2086. 20860 CONNECT (220,420)-(260,420)-(260,320),%7,PSET,N
  2087. 20870 CONNECT (221,419)-(259,419)-(259,321),%7,PSET,N
  2088. 20880 WAIT 15
  2089. 20890 LINE (220,270)-(260,420),PSET,%5,BF
  2090. 20900 CONNECT (220,420)-(220,270)-(260,270),%7,PSET,N
  2091. 20910 CONNECT (221,419)-(221,271)-(259,271),%7,PSET,N
  2092. 20920 CONNECT (220,420)-(260,420)-(260,270),%1,PSET,N
  2093. 20930 CONNECT (221,419)-(259,419)-(259,271),%1,PSET,N
  2094. 20940 RETURN
  2095. 20950 '
  2096. 20960 *B
  2097. 20970 LINE (220,270)-(260,420),PSET,%3,BF
  2098. 20980 CONNECT (270,320)-(310,320)-(260,420)-(220,420)-(270,320),%8,PSET,F
  2099. 20990 CONNECT (220,420)-(270,320)-(310,320),%7,PSET,N
  2100. 21000 CONNECT (221,419)-(271,321)-(309,321),%7,PSET,N
  2101. 21010 CONNECT (220,420)-(260,420)-(310,320),%1,PSET,N
  2102. 21020 CONNECT (221,419)-(259,419)-(309,321),%1,PSET,N
  2103. 21030 Q$="B"
  2104. 21040 GOSUB *ANSWER
  2105. 21050 IF A$=Q$ THEN 21090
  2106. 21060 IF A$<>Q$ THEN BEEP 1
  2107. 21070 WAIT 10
  2108. 21080 BEEP :GOTO 20970
  2109. 21090 PCMPLAY TYPE%,100 :RETURN
  2110. 21100 '
  2111. 21110 *AB
  2112. 21120 CONNECT (270,320)-(310,320)-(260,420)-(220,420)-(270,320),%4,PSET,F
  2113. 21130 CONNECT (220,420)-(270,320)-(310,320),%1,PSET,N
  2114. 21140 CONNECT (221,419)-(271,321)-(309,321),%1,PSET,N
  2115. 21150 CONNECT (220,420)-(260,420)-(310,320),%7,PSET,N
  2116. 21160 CONNECT (221,419)-(259,419)-(309,321),%7,PSET,N
  2117. 21170 WAIT 15
  2118. 21180 CONNECT (270,320)-(310,320)-(260,420)-(220,420)-(270,320),%3,PSET,F
  2119. 21190 LINE (220,270)-(260,420),PSET,%5,BF
  2120. 21200 CONNECT (220,420)-(220,270)-(260,270),%7,PSET,N
  2121. 21210 CONNECT (221,419)-(221,271)-(259,271),%7,PSET,N
  2122. 21220 CONNECT (220,420)-(260,420)-(260,270),%1,PSET,N
  2123. 21230 CONNECT (221,419)-(259,419)-(259,271),%1,PSET,N
  2124. 21240 RETURN
  2125. 21250 '
  2126. 21260 *N
  2127. 21270 LINE (370,270)-(410,420),PSET,%3,BF
  2128. 21280 CONNECT (320,320)-(360,320)-(410,420)-(370,420)-(320,320),%8,PSET,F
  2129. 21290 CONNECT (370,420)-(320,320)-(360,320),%7,PSET,N
  2130. 21300 CONNECT (371,419)-(321,321)-(359,321),%7,PSET,N
  2131. 21310 CONNECT (370,420)-(410,420)-(360,320),%1,PSET,N
  2132. 21320 CONNECT (371,419)-(409,419)-(359,321),%1,PSET,N
  2133. 21330 Q$="N"
  2134. 21340 GOSUB *ANSWER
  2135. 21350 IF A$=Q$ THEN 21390
  2136. 21360 IF A$<>Q$ THEN BEEP 1
  2137. 21370 WAIT 10
  2138. 21380 BEEP :GOTO 21270
  2139. 21390 PCMPLAY TYPE%,100 :RETURN
  2140. 21400 '
  2141. 21410 *AN
  2142. 21420 CONNECT (320,320)-(360,320)-(410,420)-(370,420)-(320,320),%4,PSET,F
  2143. 21430 CONNECT (370,420)-(320,320)-(360,320),%1,PSET,N
  2144. 21440 CONNECT (371,419)-(321,321)-(359,321),%1,PSET,N
  2145. 21450 CONNECT (370,420)-(410,420)-(360,320),%7,PSET,N
  2146. 21460 CONNECT (371,419)-(409,419)-(359,321),%7,PSET,N
  2147. 21470 WAIT 15
  2148. 21480 CONNECT (320,320)-(360,320)-(410,420)-(370,420)-(320,320),%3,PSET,F
  2149. 21490 LINE (370,270)-(410,420),PSET,%5,BF
  2150. 21500 CONNECT (370,420)-(370,270)-(410,270),%7,PSET,N
  2151. 21510 CONNECT (371,419)-(371,271)-(409,271),%7,PSET,N
  2152. 21520 CONNECT (370,420)-(410,420)-(410,270),%1,PSET,N
  2153. 21530 CONNECT (371,419)-(409,419)-(409,271),%1,PSET,N
  2154. 21540 RETURN
  2155. 21550 '
  2156. 21560 *M
  2157. 21570 LINE (370,270)-(410,420),PSET,%3,BF
  2158. 21580 LINE (370,320)-(410,420),PSET,%8,BF
  2159. 21590 CONNECT (370,420)-(370,320)-(410,320),%7,PSET,N
  2160. 21600 CONNECT (371,419)-(371,321)-(409,321),%7,PSET,N
  2161. 21610 CONNECT (370,420)-(410,420)-(410,320),%1,PSET,N
  2162. 21620 CONNECT (371,419)-(409,419)-(409,321),%1,PSET,N
  2163. 21630 Q$="M"
  2164. 21640 GOSUB *ANSWER
  2165. 21650 IF A$=Q$ THEN 21690
  2166. 21660 IF A$<>Q$ THEN BEEP 1
  2167. 21670 WAIT 10
  2168. 21680 BEEP :GOTO 21570
  2169. 21690 PCMPLAY TYPE%,100 :RETURN
  2170. 21700 '
  2171. 21710 *AM
  2172. 21720 LINE (370,320)-(410,420),PSET,%8,BF
  2173. 21730 CONNECT (370,420)-(370,320)-(410,320),%1,PSET,N
  2174. 21740 CONNECT (371,419)-(371,321)-(409,321),%1,PSET,N
  2175. 21750 CONNECT (370,420)-(410,420)-(410,320),%7,PSET,N
  2176. 21760 CONNECT (371,419)-(409,419)-(409,321),%7,PSET,N
  2177. 21770 WAIT 15
  2178. 21780 LINE (370,320)-(410,420),PSET,%3,BF
  2179. 21790 LINE (370,270)-(410,420),PSET,%5,BF
  2180. 21800 CONNECT (370,420)-(370,270)-(410,270),%7,PSET,N
  2181. 21810 CONNECT (371,419)-(371,271)-(409,271),%7,PSET,N
  2182. 21820 CONNECT (370,420)-(410,420)-(410,270),%1,PSET,N
  2183. 21830 CONNECT (371,419)-(409,419)-(409,271),%1,PSET,N
  2184. 21840 RETURN
  2185. 21850 '
  2186. 21860 *END
  2187. 21870 SYSTEM
  2188. 21880 '
  2189. 21890 *はじめに
  2190. 21900 CLS
  2191. 21910 LINE (70,270)-(110,420),PSET,%8,BF :SYMBOL(75,425),"小",2,1,%0,,,1
  2192. 21920 CONNECT (70,420)-(70,270)-(110,270),%7,PSET,N
  2193. 21930 CONNECT (71,419)-(71,271)-(109,271),%7,PSET,N
  2194. 21940 CONNECT (70,420)-(110,420)-(110,270),%1,PSET,N
  2195. 21950 CONNECT (71,419)-(109,419)-(109,271),%1,PSET,N
  2196. 21960 SYMBOL(75,275),"Ａ",2,1,%1,,,1
  2197. 21970 LINE (120,270)-(160,420),PSET,%5,BF:SYMBOL(125,425),"薬",2,1,%0,,,1
  2198. 21980 CONNECT (120,420)-(120,270)-(160,270),%7,PSET,N
  2199. 21990 CONNECT (121,419)-(121,271)-(159,271),%7,PSET,N
  2200. 22000 CONNECT (120,420)-(160,420)-(160,270),%1,PSET,N
  2201. 22010 CONNECT (121,419)-(159,419)-(159,271),%1,PSET,N
  2202. 22020 SYMBOL(125,275),"Ｓ",2,1,%1,,,1
  2203. 22030 LINE (170,270)-(210,420),PSET,%5,BF:SYMBOL(175,425),"中",2,1,%0,,,1
  2204. 22040 CONNECT (170,420)-(170,270)-(210,270),%7,PSET,N
  2205. 22050 CONNECT (171,419)-(171,271)-(209,271),%7,PSET,N
  2206. 22060 CONNECT (170,420)-(210,420)-(210,270),%1,PSET,N
  2207. 22070 CONNECT (171,419)-(209,419)-(209,271),%1,PSET,N
  2208. 22080 SYMBOL(175,275),"Ｄ",2,1,%1,,,1
  2209. 22090 LINE (220,270)-(260,420),PSET,%5,BF:SYMBOL(225,425),"人",2,1,%0,,,1
  2210. 22100 CONNECT (220,420)-(220,270)-(260,270),%7,PSET,N
  2211. 22110 CONNECT (221,419)-(221,271)-(259,271),%7,PSET,N
  2212. 22120 CONNECT (220,420)-(260,420)-(260,270),%1,PSET,N
  2213. 22130 CONNECT (221,419)-(259,419)-(259,271),%1,PSET,N
  2214. 22140 SYMBOL(225,275),"Ｆ",2,1,%1,,,1
  2215. 22150 LINE (370,270)-(410,420),PSET,%5,BF:SYMBOL(375,425),"人",2,1,%0,,,1
  2216. 22160 CONNECT (370,420)-(370,270)-(410,270),%7,PSET,N
  2217. 22170 CONNECT (371,419)-(371,271)-(409,271),%7,PSET,N
  2218. 22180 CONNECT (370,420)-(410,420)-(410,270),%1,PSET,N
  2219. 22190 CONNECT (371,419)-(409,419)-(409,271),%1,PSET,N
  2220. 22200 SYMBOL(375,275),"Ｊ",2,1,%1,,,1
  2221. 22210 LINE (420,270)-(460,420),PSET,%5,BF:SYMBOL(425,425),"中",2,1,%0,,,1
  2222. 22220 CONNECT (420,420)-(420,270)-(460,270),%7,PSET,N
  2223. 22230 CONNECT (421,419)-(421,271)-(459,271),%7,PSET,N
  2224. 22240 CONNECT (420,420)-(460,420)-(460,270),%1,PSET,N
  2225. 22250 CONNECT (421,419)-(459,419)-(459,271),%1,PSET,N
  2226. 22260 SYMBOL(425,275),"Ｋ",2,1,%1,,,1
  2227. 22270 LINE (470,270)-(510,420),PSET,%5,BF:SYMBOL(475,425),"薬",2,1,%0,,,1
  2228. 22280 CONNECT (470,420)-(470,270)-(510,270),%7,PSET,N
  2229. 22290 CONNECT (471,419)-(471,271)-(509,271),%7,PSET,N
  2230. 22300 CONNECT (470,420)-(510,420)-(510,270),%1,PSET,N
  2231. 22310 CONNECT (471,419)-(509,419)-(509,271),%1,PSET,N
  2232. 22320 SYMBOL(475,275),"Ｌ",2,1,%1,,,1
  2233. 22330 LINE (520,270)-(560,420),PSET,%5,BF:SYMBOL(525,425),"小",2,1,%0,,,1
  2234. 22340 CONNECT (520,420)-(520,270)-(560,270),%7,PSET,N
  2235. 22350 CONNECT (521,419)-(521,271)-(559,271),%7,PSET,N
  2236. 22360 CONNECT (520,420)-(560,420)-(560,270),%1,PSET,N
  2237. 22370 CONNECT (521,419)-(559,419)-(559,271),%1,PSET,N
  2238. 22380 SYMBOL(525,275),"；",2,1,%1,,,1
  2239. 22390 SYMBOL(250,130),"あ",7,5,%0,,,1
  2240. 22400 LINE (419,219)-(461,421),PSET,%0,B
  2241. 22410 CONNECT (319,319)-(361,319)-(411,421)-(369,421)-(319,319),%0,PSET,N
  2242. 22420 SYMBOL(430,10)," [ESC]を押すとﾒﾆｭｰへ戻る",1,1,%0,,,1
  2243. 22430 SYMBOL(40,40),"*肌色の四角は左右の指です 常にﾎｰﾑﾎﾟｼﾞｼｮﾝの位置に置く",1,1,%2,,,0
  2244. 22440 SYMBOL(370,150),"← この字をつぶやきながら押す",1,1,%2,,,0
  2245. 22450 SYMBOL(40,70),"*画面中央に大きく字が出る  押すべき指の形と色が変わるので真似して押す！",1,1,%2,,,0
  2246. 22460 SYMBOL(40,100),"*押した指が凹み 正しければ次に進み 違えばﾌﾞｻﾞｰ",1,1,%2,,,0
  2247. 22470 SYMBOL(260,220),"一段指を上げ押す →",1,1,%2,,,0
  2248. 22480 SYMBOL(120,340),"一段下げ左に伸ばして押す→",1,1,%2,,,0
  2249. 22490 SYMBOL(112,370),"← そのまま押す",1,1,%2,,,0
  2250. 22500 SYMBOL(330,463),"*[英 大]ﾓｰﾄﾞにして下さい →",1,1,%2,,,0
  2251. 22510 LINE (560,463)-(640,480),PSET,%0,BF
  2252. 22520 A$=INKEY$ :IF A$="" THEN 22520 
  2253. 22530 IF A$=CHR$(&H1B)THEN *メニュー ELSE 22520 
  2254. 22540 RETURN 
  2255.